Oa cee cl cel ce cel oe el el ce ce cl el el el oe ee ee od 
Ce eel ee oe el el el ce cee cee oe ll el el el el ol oe el 
Cl cel cel el eel ce el cee el oe el ce eo el ol el el eh ee ad 


oe eee 
ee ee eee oe ee 
ee — 
. oak cae ane 
coe ee 


Ce ee 
CE ee 
Ce eel ek el el el el el ee el el el el ek el od 


re re 
ce [oe el 
ne -—— 

te ee 

Ae 

te ke be 

ak BA kk ee 

Ate te fobs 

a oe ta he ke 

kh te bk te 

ka te he ke 

oe ke be Ek 

a te 

Ae be be te 

A A 


a ke ke te be be te te be te be te te te ae ee ke ke ka a 
ha. Oe be be. Oe be be. be Oe be be be be be. be. te. te. be te te 
hee Oe Oe be be be be be be be be be be be be be te te te te te 


' NNN VW VV NV NY NYY ON ONY YN SN SST ST TTT TTT YY VS 


> Se PS oe ee Oe Fe Oe HS FS OS HS ee FS He Fe HES FS FS HS He Oe He Oe HS HS HS HS He He He He He TS FES HS HS FETS FEES FETS TS TS FHSS IS *S SHS STS*S SH HD 


| 
| 
| 
| econo ca 
eococo rca 
ca ca ca 
| ca ca ca 
ca ecace 
| a4 cece | 
ca ca 
| ca ca 
wad 4-4-4-4-4-4:4-4-4-4-4° 4 
a-4-4-4-4-4-4-4-4-4-4-4-4- 4 
oawow oo 
@oo oom @Oam 
oom aa oom 
om oo oo 
oo oo oD 
oom oo @ 
om oo oa 
DOODOOOOOOOOOOO 
} MDDOODOODDOOOOOOOD 
nal 
- 39 55> 52> 
— SS. fF fe 
vw == 
S35 
—o- 
~ 3 
a - 
=) 
— 5 


nw mm mn 
mown nw nn 
Wn mn “wn 
mn mw “nw 
nw nn nn 
nn nn nn 
MMWMnM wn 
MMMM nm 
a mw MMW 
a4 mn MMWMnmM 
a “wn nw nn 
=) nn nn nn 
a4 mw mown nn 
a) mWnm nw nn 
awa nw nn “nn 
a4 mn nw nw 
at ad od od HO I OI I I I I I Munn nn 
ao I I I I I I UI UI I I MMnn nn 
Vv ww 
Vww Uw 
ww WwW [kml et 
ww Ww oe ee 
eed Vu ee ed et te 
ww WU dy a Bd a at Oe Bd ng eg Dg me Oe oe 
Vuw Ww to ae et 
VuU ww to — 
VVEVVOYVYVYYUYUw 
YVUYUVUYUYUUUVUUW 
<«q<<a<aaa < a4 
2222222222 33 
<3 < a4 
33 : 33 
—) 
<3 $3 33 
< 4 ollie 
_— <a<<< 33 
aad od I OI OI OI I I OI I 
222224 ee ee 


**F ILE**1D**ACLSUBR 
Ak 
AA 
oh 
aA 
BA 
AA 


ACLSUBR 0-742 
X.SRC 
MODULE ACLSUBR aie ini 
IDENT = Preah ; 
ADDRESSING_MODE (EXTERNAL = GENERAL) 

= 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
» orpokat iin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! 

FACILITY: File system subroutines 

! ABSTRACT: 


This module contains the subroutines that manage in memory 
access control lists. 


i ENVIRONMENT : 
Modular procedure. No own storage used. 
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AUTHOR: L. Mark Pilant CREATION DATE: 30-Sep-1982 11:00 
MODIFIED BY: 
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05 

05 v03-006 LMP0290 L. Mark Pilant, 31-Jul-1984 10:40 
05 Make sure ACL_MODENTRY tracks the ACL_LOCATEACE interface 

05 change. 

03 v03-005 LMP0284 ; L. Mark Pilant 25-Jul-1984 15:06 
09 Add an ACL initialization routine, ACL_INIT_QUEUE. 
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$800 1$-ep-1944 43:30:09 PeecbumGhaStencchtiksoheaacusuar.e3204%° 15) 


:C R 


err 
me 


3 H : ; } v03-004 LMP0273 L. Mark Pilant, 6-Jul-1984 13:56 

; 1} Fix a oye that caused an ACE to be dropped when the user's 

; 4 6 : buffer filled up during an ACL read. 

> ¢ bO¢ 1} v03-003 ArGOse6 Andrew C. Goldstein, x Hers tyes 15:14 

: o7 6 : } Fix clearing of input buffer in ACL_ERROR call in ACL_ADDENTRY 

; 69 5 1! V03-002 ACG0418 Andrew C. Goldstein, 19-Apr-1984 13:15 

; 68 98 ! Fix returning of NOMOREACE in reading ACL's 

; 668 068 1! v03-001 ACG0415 Andrew C. at estets 3-Apr-1984 14:33 

; 4 8¢? 1! Break out from SYSACLSRV.B32 to make gonnen routines; 

; 0 09 1! rework add algorithm to: support multiple ACEs in one 

ae or) 1! add, correctly protect positioning of alarm and audit 

3 ue Bors 1! ACEs at the front of the ACL, fix the block split of 

3 oF 0074 : large ACLs; general code cleanup and minor bug fixes. 

co a 075 1 !ee 

‘> = Bore 1 

. ae 0077 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

3 78 0078 1 REQUIRE ‘SRCS$:FCPDEF'; 

; 1069 1 

; 1070 1 

: 81 1071 1 FORWARD ROUTINE 

i 2 1976 1 ACL_INIT_ QUEUE, ! Initialize ACL queue 

; 8 1073 1 ACL_ADDERTRY, ' add an ACE to an ACL 

; 84 1074 1 ACL_DELENTRY, ' remove an ACE from an ACL 

; 1075 1 CL_MODENTRY, ! modify an existing ACE 

; & 1076 1 ACL_FINDENTRY, ' Locate a specific ACE 

=. ar 1077 1 ACL_FINDTYPE, ! locate a specific type of ACE 

; & 1078 1 ACL_DELETEACL, ' remove entire ACL from object 

; 1079 1 ACL_READACL ! read one or more ACEs 

; 90 1080 1 ACLACLLENGTH, i determine the size of the ACL 

; 1081 1 ACL_READACE ' read a single AC 

: 3 108¢ ACL-LOCATEACE; i locate ACE by context value 

; 34 1084 1 EXTERNAL ROUTINE | 

; 1085 1 ALLOC_PAGED, ! Paged pool allocator 

; «96 1086 1 DALLOC_PAGED; ! Paged pool deallocator 

3; | «6 1087 1 

: 98 1088 1 MACRO 

; 99 m 1089 1 ACL_ERROR (STATUS) = 

; 100 ™ 1090 1 EGIN 

3 19) La} 193! 1 CHSFILL (0, .COUNT, .ACE); 

eS : m1 % 1 ACECACESW_FLAGS] = STATUS; 

: 10 1093 1 RETURN STATUS; 

; 6104 m 1094 1 ND 

; 105 1095 1 : 

; 198 1 36 1 

s 10 1097 1 ! Fields used in the ACL context longword. | 

: 108 1 a8 1! 

3; 109 109 1 MACRO 

: 110 1100 1 CONTEXT_INDEX = g. 9 24, 8 %, | ACL entry index 

s Ot 1101 1 CONTEXT_TYPE = 0, 24, 8: 0%: | entry type in use | 
| 
| 
| 


pohaiicmpensneiahianomnneats ) 
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ACLSUBR 1b-$e =1984 23:51: VAX-11 Bliss-32 V4,0-742 Page 3 

yO 000 ACL_INIT_QUEUE = initialize ACL queue head 12=808=13Re $3:3h:99 DISKSVMSMASTER=LF11X.SRCJACLSUBR.B32:1> (2) 

3; 11 11 § 1 ZSBTTL ‘ACL Jnit Queue - initialize ACL queue head' ; 
: i} 13 Z ! GLOBAL ROUTINE ACC_INIT_QUEUE (ORB_ADDRESS) = : 
: 14 1105 1 44 : 
: 113 11 1! 3 
F 118 1 i ! } FUNCTIONAL DESCRIPTION: : 
: 120 11 ; 1} This routine is called to initialize an uninitialized ACL queue. : 
3 : 1 1ii% : If the queue has already been initialized, this routine is a no-op. ; 
: 138 1112 1 | CALLING SEQUENCE: : 
; : ¢ 14 ! ACL_INIT_QUEUE (ARG1) : 
<4 6 1115 1 | INPUT PARAMETERS: ; 
7 1138 2S ARG1: address of the ORB 3 
: 128 1117 1:5! 3 
; 129 1118 1 =! IMPLICIT INPUTS: 3 
ont 1119 1! none 3 
3s 131 1120 1! : 
3s 4 ¢ 1121 1 =! OUTPUT PARAMETERS: é 
, 4 11 ; 1! none 3 
; 134 11 1! F 
; 6135 1124 1 ! IMPLICIT OUTPUTS: 3 
; 136 1125 1! none 3 
s 137 1126 1! 3 
; 138 1127 1 ! ROUTINE VALUE: 3 
; «139 1128 1! 1 3 
; 140 1129 1! 3 
3: (141 1130 1 ! SIDE EFFECTS: 3 
3 146 1137 1! ACL queue head is initialized, and the ACL queue bit in the ORB : 
; (146 1138 1! s set. . 
3 (144 11 1! 3 
3: «145 1134 1 !e< F 
: 146 1135 1 3 
3 yt 4 1 BEGIN : 
> 149 1138 MAP ; 
3 130 1123 ORB_ADDRESS : REF BBLOCK; ! Address of the ORB : 
; 138 1141 2 LOCAL : 
3 137 1136 : REF BBLOCK; ! Address of the ORB for PRIMARY_FCB : 
: 155 1144 2 EXTERNAL : 
; 138 1102 CTLSGL_PCB : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); ; 
: 158 1147 LINKAGE : 
; 159 1148 L MUTEX = JSB ope eis ree = 0, me a) = 4) 3 
: 160 1149 : NOTUSED (5, 6, 7, 8 9, 10, 11); 3 
3; 6161 1150 : 
3 166 1151 EXTERNAL ROUTINE 3 
; 16 1136 SCHSLOCKW : L_MUTEX ADDRESSING_MODE (ABSOLUTE), | 3 
3: 6164 115 ' Lock mutex for write 3 
: 165 1154 SCHSUNLOCK : L_MUTEX ADDRESSING_MODE (ABSOLUTE); | F 
; 106 We? ! Unlock mutex : 
; 198 1187 ! If the ACL queue head is uninitialized, do the initialization now. | : 
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. 14- Sep DISKSVMSMASTE SRCJACLSUBR. B3204 
ca 115 one = .ORB_ADDR ! For running at elevated IPL . 
3 if Hs IF NOT . -ORBCORB ; Shee QUEUE) ’ : 
: 417 11 BEGIN ; 
: 174 1103 BCORBSL_ACL_MUTEX] = %X*OOOOFFFF'; ' Initialize the ACL mutex ; 
; 175 1164 ie LOCKW" (ORBLORBS ACL MUTEX, “CELSGL PCB); : 
: 176 1165 ORB ORBSV_A ACL_QUEU ’ 
: 417 1166 ORB LO LoACLPL = ORBCORBSL_ACLBL] = ORBCORBSL_ACLFLI; : 
; 178 116 SCH NLOCR — ORBSL ACL MUTEX], .CTLSGL_PCB); ; 
: 179 1168 T_IPL : 
ih mais so : 
; 18¢ Vig} ¢ RETURN 1; : 
>; 184 1198 END; ! End of routine ACL_INIT_QUEUE : 
TITLE ACL SUBR 
“IDENT \V04-000\ : 
.EXTRN ALLOC_PAGED, DALLOC_PAGED : 
~EXTRN CTLSGC PCB. SCHSLOCRW ; 
~EXTRN titty NCOC : 
<PSECT $CODE$,NOWRT,2 

001¢ 00000 .ENTRY ACL_INIT_QUEUE, Save R2,R3,R4 : 

53 000000006 9F 9 00002 MOVAB aACTLS$GL~PCB, : 

5 04 AC 00 00009 MOVL §§ ORB_ADDRESS, ORB : 

33 0B OA oi 60 90000 S #1 yi y : 

04 a2 FFFF 8F 3¢ 0012 MOVZWL #65535, 4 (ORB) ; 

5 04 Ae 4 9901 MOVAB 4(ORB), : 

54 63 00 0001C MOVL  CTLSGL PCB. R4 : 

000000006 9F 16 DO01F JSB aaSCHSCOCKW : 

0B 3 08 88 00025 BISB2 #2, 1a CORB) : 

5 28 OA i 0029 MOVAB 40 (ORB) RO : 

2c A 50 D0 00020 MOVL » 44(0RB) ; 

28 Ag 50 00 00031 MOVL R t0CORB) : 

5 04 ag 3 0035 MOVAB RO, 40! R F 

54 63 DO 00039 MOVL  CTL$GL PCB, R4 : 

000000006 9F 16 000 JSB SaSCHSONLO otk ; 

12 0 DA 0004 MTPR : 

50 1 D0 00045 1$ MOVL , : 

04 00048 RET : 


; Routine Size: 73 bytes, Routine Base: S$CODE$ + 0000 


ADDENTRY = add an ACE to an ACL 
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18-58 -1984 23:51: VAX-11 Bliss-32 V4.0-742 Page 
12-808-138e 13:39:09 DISKSVMSMASTER:CF1IX.SRCJACLSUBR.B32: 1° (3 
ZSBTTL ‘ACL_ADDENTRY = add an ACE to an ACL’ 
GLOBAL ROUTINE ACL_ADDENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, LENGTH, ACE_SUFFER) = 


'o4 
i 


i FUNCTIONAL DESCRIPTION: 


This routine is used to add an Access Control Entry to the file ACL. 
If the ACL genreas is zero, the ACE is added to the beginning of the 
ACL. Otherwise, it is inserted into the ACL at the selected place. 


It should be noted that adding an ACE anywhere in the AGL other than 
the end could poss toty result in corruption of the ACL if the system 
should crash while the new ACE in being inserted. 


CALLING SEQUENCE: 
ACL_ADDENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, LENGTH, ACE_BUFFER) 


INPUT PARAMETERS: 
ACL_QUEUE HEAD: address of queue header for ACL 
ACL-CONTERT: address of ACL context longword 
LENGTH: size of the user Access Control Entry 
ACE_BUFFER: address of the user Access Control Entry 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


eaten VALUE : 


SIDE EFFECTS: 
Access Control Entry inserted in or appended to the file ACL. If 
it 7 [ogere ran, the ACL context is updated to point after the 
nserte ‘ 


BEGIN 
MAP 
ACL_QUEUE HEAD =: REF S$BBLOCK, ' Queue header for ACL 
ACL_CONTERT : REF $BBLOCK; ! Context lLongword 
LABEL 
ADD_ENTRY; ! Add one ACE to the ACL 
LOCAL 
COUNT, Length of remaining buffer 


The address of the user ACE 
Pointer to current ACL segment 
Offset to current AC 


ACE : REF SBBLOCK, 
ACL_POINTER : REF SBBLOCK, 
ACL_SPLIT : REF SBBLOCK, 
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ACL 


ADDENTRY = add an ACE to an ACL 


BEGIN 
ADD_ENTRY: BEGIN 


43 1 ACE_POINTER : REF S$BBLOCK, ' Pointer te current ACE 

44 § ! Index of ACE in ACL 

45 ot “LENGTH, ! Length of all ACE s in segment 

4 4 ACL : REF SOB LOCK. ! Address of the new ACL segment 

rf 5 OLD CONTEXT : SBBLOCK (4); ! Index of existing ACL entry 
49 

50 3 ' The ACE buffer ony © congain multiple ACEs. Loop over the ACEs in the buffer, 
2 ! adding them one a time. 
| 

g 41 2 COUNT = .LENGTH 
4 4 ACE = .ACE. BUFFER; 

5 4 UNTIL .COUNT LEG 6 

$ 44 dO 
5 45 

58 

59 


Sanity check the contents of the ACE - make sure the count field does 


Determine if the ACE exists already. If it does, the result depends on 
the relative position of the old and new ACEs. Effectively, we remove 
the one that is masked by the one preceding it in the ACL. 


one ee (.ACL_QUEUE_HEAD, OLD_CONTEXT, .ACECACESB_SIZEJ, .ACE, 1) 


13 
2 4 
260 48 

261 rh not exceed the remaining buffer, and that the ACE is at least 4 bytes long. 
re 51 IF .COUNT LSSU 4 
64 2g THEN RETURN SS$_BADPARAM; 

66 54 IF “ACE ACESB -S1ZE} GT GTR . COUNT 

67 55 R .ACECACES$B~ SIZE 

68 26 THEN ACL_ERROR (SSS$_ AVAL): 

70 58 4! If the ACE being added is an AUDIT or ALARM ACE, force it to the beginning 
4 39 i of the ACL. 

ig 61 ACE NUMBER = ACL _CONTEXTCCONTEXT INDEX; | 
7% 6¢ IF ACELA CESB. TYBE EQL ACESC_AUDITT 

75 6 OR .ACECACESB~ TYPE Fat ACESC~ ~ALARR 

7 64 THEN. ACE *NUMBER 

77 65 

78 66 

79 67 

80 68 

81 9 

Be 0 

8 71 

84 7 

85 
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BEGIN 

IF .OLD ONTEXTCCONTEXT_ INDEX] LSSU .ACE_NUMBER 
THEN LEAVE. ADD_ENTR | 
act DELENTRY (7ACL "QUEUE -HEAD, OLD_CONTEXT, 0, 0); 
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Now Locate the arerenc tote ACL segment. If there is no ACL | 
os yet, oe imply ocate a block of memory and build 
e new 


IF ACL QUEUE _NEABCACL SL FL IMK2 EQLA ACL_QUEUVE_HEADCACLSL_FLINK] 


BEGIN 
ACL POINTER = 


a ee Eee SS SS 


SESSBPSSVSSSEF 


Pw eal al ot ot oF oF ot ot ot od 4) a ah al et et et et eet ee oe oT oT oT ot a oT oT ot ot ot ot ot ot ot ot et 


POPSPUPPUPPONPOPOMoAnIny 
CoCo Co INI 
Wwr—O Oc 


5 ALLOC ~P AGED (ACLSC_LENGTH ACECACESS 3it6) 
§ CHSMOVE (.ACECACESB- sige 2ACE, ACL POINTER ACLSL_LISTJ); 
ACL_POINTERCACL$W_STZEJ) = “aCL$C“LENGTH + ,ACECACESB_SIZE) 


| 
J, ACL_TYPE); | 
: 
| 
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ACL_ADDENTRY = add an ACE to an ACL 12-8 08=19Re 93:39:09 DISKSVMSMASTER:CF1iX.SRCJACLSUBR.B32:1> (3 


INSQUE (.ACL_POINTER, .ACL_QUEUE_HEADLACLSL_FLINKJ); 
ACE_NUMBER ="1; 


) 
7 | 
> 
i 
| 


! If there is an existing ACL, position to the location indicated by the 
! context. Then advance over any existing eydte or alarm ACEs to ensure 
! that choy stay at the front of the ACL. Finally, if we are positioned 
i at the start of a segment, back up to the end of 

i successive additions at the 


ELSE 


the previous. This prevents 
same point from fragmenting the ACL. 


BEGIN 
ACE_NUMBER = ACL_LOCA 
ACE-POINTER = ACC_PO 
UNTIL ACL POINTERTAS 
OR (.ACE_POINTER 
AND [ACE_POIN 


HEAD, .ACE_NUMBER, ACL_POINTER, ACL_SPLIT); 


sACL_SPL 
QUEUE_HEADEACLSL_FLINK) 
$C_AUDIT 


3 
L 
E 
Q ACESC_ALARM) 
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R = .ACE_POINTER + .ACE_POINTERCACESB_SIZE); 
= .ACE_RUMBER + 1; 
OINTER GEQA .ACL_POINTER + .ACL_POINTERCACLS$W_SIZEJ 


ACL_POINTERCACLSL_FL 


AC INK]; 
ACL_POINTERCACLSL_CISTI 


AnD ACL _POINTER ACLSL_BLINK] NEQA ACC_QUEVE_HEADCACLSL_FLINK] 


BEGIN 
ACL_POINTER 
ACE POINTER 


INTERCACLSL_BLINK]; 
INTER + .ACC_POINTERCACLSW_SIZEJ; 


! Now check the size of the segment. If the new entry still fits within 
! the maximum segment size, insert it by allocating a new segment and 
! copying in the pieces. 
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40 
41 ACL_SPLIT = .ACE_POINTER = ACL POINTERCACLSL LIST); 
; ACL“LENGTH = .ACC_POINTERCACLS$@ SIZE) - ACL$C_LENGTH; 
IF TACL_LENGTH + -ACECACESB_SIZE) LEQU MAX_ACC_SIZE 
¢ THEN GIN 
| 
6 NEW_ACL = ALLOC_PAGED (ACLSC_LENGTH + .ACL_LENGTH + . CECACESB S176), ACL_TYPE); 
7 5 NEW-ACLCACL$W_STZE) = ACLSC_CENGTH + .ACL_CENGTH + .ACECACESB_SIZE); | 
8 6 ACE-POINTER ="CHSMOVE (.ACL SPLIT ACL POINTERCACLSL_LISTI, | 
9 NEW ACLCACL$L_LISTJ); | 
0 8 ACE_POINTER = CHSMOVE (.ACECACESB_SIZEJ, .ACE, .ACE_POINTER); 
1 9 CHSMOVE (.ACL_LENGTH = .ACL SPLIT: 
¢ 0 ACL_POINTERCACLS$L_CIST) + .ACL SPLIT, -ACE_POINTER); 
1 RCACL$L_BLINK)); 
é § 
5 
6 4 


WAM 


WAG 


ene 


! Otherwise we have to split the segment. We put the new ACE in whichever 


| 

| 

END; | 

IF .ACE_ POINTER EQL ACL_POINTERCACLSL_LISTI 
| 

| 
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' segment is smaller. Bese ause the max size of an ACE is 256, and the 
i max segment size is we are guerentood that the new ACE will fit 
i im one or the other (i.e., a 3-way split is not necessary). 

ELSE 


ia LEQU .ACL_LENGTH = .ACL_SPLIT 


BEGIN 
NEW_A teas PA ED (ace sc LENGTH + .ACL_LENGTH = .ACL suit. ACL_TYPE); 
NEW-A CCACL W stze LSC_CENGTH + .ACL_CENGTH - .ACL_SPLI 
NEWAC : (.ACL“L ACL SPLdT 

ACL “POINTERCACLSL cist ¢ ACL SPLIT, NEW ACLCACLSL a 
INS wii .. NEW" ACL, ACL_POINTERCACLSL_FLINKI 
NEW_ACL ee “ba age” tot LENGTH+ .ACL SPLIT ° ACE ACESB. SIZE], ACL_TYPE); 
NEW “ACLCACL W_STZE) = ACL$SC_CENGTH + .ACL_SPLIT acgse. SIZE); 
ACE-POINTER ="CHSMOVE (AAC SPLIT ACL POTNTERCACLIL eret 

NEW_ACLCACL$L_LISTJ); 
CHSMOVE (.ACECACESB_SIZEJ, : ACE ACE POINTER) : 
INSQUE (,NEW_ACL, ACL_POINTERCACLS$L_FCINKJ); 
cog 
NEW_ACL = ALLOC_PA ED (ACLSC_LENGTH + pace LENGTH ~ pace SPLIT + “ACE AC 
NEW_ACLCACLS$W_STZE ACLSC_CENGTH + .ACL_CENG act SP 
ACE-POINTER = CHSROVE ( ACECACESB MsI2éds “hee NEW. ACL Resi. "LIst): 
CHSMOVE (.ACL_LENGTH = .ACL_SPLIT> 
ACL_ Bo INTERCACL SL CIST) + .ACL SPLIT, -ACE_POINTER); 

INSQUE (. NEW. ACL, ACL_POINTERCACLSL_FLIAK] 
NEW_ACL = ALCOC Sree act CACLSC LENGTH + wri tout, ACL_TYPE); 
NEW CACLCACLSN. STZE C CENGTH + .ACL_SPLIT; 
CH ACL“SPLIT ate "POINTER. actat LI gti NEW_ACLCACLSL_LISTJ); 


Insaue (NEW tReL ACL_POINTERLA 


e 


END; 
REMQUE (.ACL_POINTER, ACL_POINTER);: 
DALLOC. PAGED~(.ACL_POINTER, ACL_TYPE); 


! At this point the ACE has been added to the ACL. Finish up by setting the 
i ACL context. 


IF .ACE acess. TYPE] EQL ACESC_AUDIT 
ms ACECACESB-TYPLS EQL ACESC” ALARM 
THEN .ACL_ CONTEXT = ..ACL CONTEXT + 1 
ELSE .ACL-CONTEXT = .ACE_RUMBER + 1; 
END; ! end of block ADD_ENTRY 
COUNT = eo - ,ACECACESB flees 
ACE = .ACE + .ACELACESB_SIZE 
END; ! end of ACE processing loop 
RETURN 1; 


END; ! End of routine ACL_ADDENTRY 


1SSen-196 13:30:07 DASKSVMEMASTERSCF TIX. SRCIACLSUBR.B3241°" 
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v04=000 ACL_ADDENTRY = add an ACE to an ACL 1278 08-1 3c $3:39:09 DISKSVMSMASTER:CF1iX.SRCJACLSUBR.B32:1> (3) | 
OFFC 00000 ENTRY at -ADDENTRY, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 1175 
a oc ¢ 900 SUBL2 #12, SP : 
: of AC D 09 MOVL LENGTH, COUNT + 1241 
10 ac D 9 MOVL ACE BUFFER, ACE + 126 
5B OD OD 1$ TSTL OURT + 126 
0 1 0 OF BGTR : 
02A2 31 00011 BRW 3$ : 
04 5B D1 00014 2s: CMPL COUNT, yh + 1251 
04 if 0017 BGEQU 3$ : 
50 4 06 9019 OVL #20, RO + 1252 
58 68 08 00 FD 001D 3$: CMPZV #0, #8, (ACE), COUNT + 1254 
4 14 00022 BGTR : 
68 95 00024 TSTB ~—-_ (ACE) + 1255 
12 12 000 6 BNEQ : 
58 00 6E 09 2¢ 00 8 4$: MOVCS #0, (SP), #0, COUNT, (ACE) + 1256 
02 As ZiE4 8F 80 002E MOVW #8676, 2(ACE) ; 
50 164 BF 3¢ 90 , MOVZWL #8676, RO : 
SA 08 BC 18 00 EF 005A 5$: EXTZV #0, #24, @ACL_CONTEXT, ACE_NUMBER + 126 
05 01 a8 91 00040 CMPB sé CAC), #5 : 126 
06 13 00044 BEQL 6 ; 
06 01 AB 91 00046 CMPB =s«A CAC), #6 : 126 
02 12 O004A BNEQ 7$ : 
SA D4 O004C 68: CLRL § ACE_NUMBER : 126 
01 DD 0004¢ 7$: PUSHL #1 : 127 
58 DD 0005 PUSHL ACE : 
7E 68 9A 9005¢ MOVZBL (ACE), -(SP) : 
Oc AE 9F 0005 PUSHAB OLD_CONTEXT : 
04 AC oD 00058 PUSHL ACL-QUEUE_HEAD : 
0000v CF 05 FB 0005B CALLS #5, ACL_FINDENTRY : 
17 50 €9 00060 BLBC - ; 
SA 6E 18 0 FD 0063 CMPZV #0. #24, OLD_CONTEXT, ACE_NUMBER : 1273 
9 E 00068 BGEQU 8$ : 
023A 31 006A BRW $ : 
7E 7C 0006D 8$: CLRQ = : 1275 
08 AE 9F O006F PUSHAB OLD_ T : 
04 AC DD 000 : PUSHL ACL QUEUE HEA : 
0000v CF 04 FB 007 CALLS #4, ACL_DELENTRY : 
04 AC 04 BC 007A 9$: CMPL  @ACL_QUEUE_HEAD, ACL_QUEUE_HEAD > 1282 
A 12 7F BNEQ 10$ ; 
7 DD 00081 PUSHL @# : 1285. 
68 9A 99 3 MOVZBL (ACE), -(SP) ; 
6E 0¢ CO 000 ADDL , (SP) : 
000000026 Q FB 9089 CALLS #2, ALLOC_PAGED F 
08 MOVL RO, ACL_POINTER ; 
0094 MOVZBL (ACE), Rl > 1286 
0097 VL_  ACL_POINTER, RO ; 
8 MOVC3 R1,~(ACE), 12(RO) ; 
A VL ACL_POINTER, RO : 1287 
AG mOV 7B (ACE) 8(ROS ; 
A8 ADDW2 #12, &(RO) : 
OOAC VAB @ACL_QUEUE_HEAD, RO > 1288 


| 


S> 
ee 
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¥042000 ACL_ADDENTRY = add an ACE to an ACL 12-8087} 382 93:39:09 DISKSVMSMASTER:CF1iX.SRCIJACLSUBR.B32:1> (i 
00 80 08 BE 0 B INSQUE @ACL_POINTER, @0(RO) ; 
A B MOVL so] _NUMBE > 1289 
0106 B BRW :1 82 
04 AE 9F 00088 10$:  PUSHAB ACL_SPLIT : 130 
C AE 9F 0008 PUSHAB ACL~POINTER : 
SA DD 000C PUSHL ACE-NUMBER : 
04 AC DD OO0c3 PUSHL  ACL-QUEUE_HEAD : 
0000v cf 4 FB C6 CALLS #4,” ACL_LOCATEACE : 
A 0 D CB MOVL. RO. AC F 
53 08 AE 06 =A a OOcE ADDL3 = ACL SPLIT ACL_POINTER, R3 + 1301 
29 OC A D4 MOVAB 12(R3), ACE_POINTER : 
0 08 AE OD 9008 11$ MOVL  ACL_POINTERS RO t 1302 
04 AC 50 D D CMPL RO, ACL_QUEUE_HEAD : 
28 13 OO0E BEQL«=Sséa1:38 : 
05 01 Ad 91 OOOE CMPB = 1(ACE_POINTER), #5 + 1303 
06 13 O0E6 BEQL 128 : 
06 01 Ad 91 O00E CMPB  =—s-:« 1(ACE_POINTER), #6 + 1304 
1F 12 OOOEC BNEQ 13$ ; 
51 69 9A OOEE 12$: | MOVZBL (ACE_POINTER), R1 : 1307 
59 1 CO OO0F ADDL2. 1, ACE POINTER : 
SA B6 OOF4 INCL ACE_NUMBER : 1308 
51 08 AO 3C 000F6 MOVZWL 8(RO), RI + 1309 
51 20 CO OOOFA ADDL2. RO, Ri : 
51 9 D1 000FD CMPL ACE_POINTER, R1 : 
D6 1F 00100 BLSSU ‘118 : 
08 AE 60 00 00102 OVL {R0), ACL_POINTER : 1312 
59 08 AE OC C1 00106 ADDL3 #12, ACL_POINTER, ACE_POINTER : 131 
CB 11 00108 BRB 11$ : 1302 
50 08 AE D0 00100 138:  MOVL  ACL_POINTER, RO : 1317 
51 0C AO 9E 00111 MOVAB 12 (RO ; 
51 59 D1 90113 CMPL ACE POINTER, R1 : 
17 12 00118 BNEQ =-*14 : 
04 AC 04 AO D1 OO11A CMPL  4(RO), ACL_QUEUE_HEAD : 1318 
10 13 O11 BEQL 14$ : 
08 ar 04 Ad dd 0 121 MOVL 4(RO), ACL_POINTER : 1321 
5 08 AE pO 0126 MOVL  ACL_POINTER, R : 1322 
59 08 AO 3C OO12A MOVZWL 8 (RO), ACE_POINTER : 
59 50 CO 001 F ADDL2 RO, ACE POINTER : 
50 08 AE DO 00131 148:  MOVL  ACL_POIRTER, RO t 1329 
53 59 5 0135 SUBL3 RO ACE POINTER. R3 : 
04 AE F4 «AS SE 00139 MOVAB -12(R3)- SPLIT ; 
56 08 Ad ¢ 01 MOVZWL 8(RO), ACL_LENGTH : 1330 
56 0 g 014 SUBL2. #11, ACL_LENGTH : 
33 68 9A 14 MOVZBL (ACE), R : 1331 
5 764 9 14 OVAB. (ACL LENGTH)CR3], R2 : 
00000200 8F 52 pi 14 CHPL is as : 
0 pp 1 PUSHL # > 1334 
Oc A2 9F 001 SHAB  12(R2) : 
000000006 9 : FB 15a CALLS #2, ALLOC_PAGED : 
p 161 Vt —s RO, NEW ACL ; 
50 68 9A 00164 MOVZBL (ACE), RO > 1335 
51 OC A046 9E 00167 v VeCRO}CACL LENGTH], R1 ; 
08 A7 51 8B 16¢ MOVW R1, B(NEW ACL) : 
50 8 AE p 1 MOVL. ACL_POINTER : 1336 
Oc aA? 0c AQ 4 Ar 174 MOVC3 ACL“SPLIT {2(RO), 12(NEW_ACL) : 1337 
5 53 00 00178 VL —sR3, “ACE_POINTER : 


ee 
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5 A 0017 MOVZBL (ACE), RO ; 133 : 
69 : $ 3 1 ; MOVC RO. (ACE), (ACE_POINTER) : ; 
DO 001 MOVL ; ACE POINTER : : 
52 6 04 AE C3 001 SUBL LSPLIT, ACL LEN > 1339 : 
8 A 4 AE gi 1 ADDL3 A Lasptit ACL-POINTER, RO : 1340 : 
69 c 6 5 8 1 mMOVC 2(ROS (ATE POINTER) : ; 
5 08 Ag 19 MOVL  ACL_POINTER, R : 1341 : 
06 80 6 1 INSQUE (NE@_ACL), 4(RO) : ; 
00DD 1A BRW > 1331 ; 
52 56 04 AE C3 OO1A3 158 SUBL3 ACL_SPLIT, ACL_LENGTH, R2 > 1354 F 
oc Cc 1 ADDL #i2, 3 > 
50 36 4 AE C 148 SUBL3 ACL.SPLIT, ACL_LENGTH, RO : 1351 ; 
4 AE D1 0018 CHPL ACLCSPLIT, R ; : 
66 1A 00184 BGTRU 1 : ; 
9 DD 0186 PUSHL # : 1354 ; 
DD 0018 PUSHL R : : 
000000006 09 g FB OO1BA CALLS #2, ALLOC_PAGED : : 
DO 001C1 MOVL. RO, NEWA : ; 
53 56 06 AE C3 001C4 SUB ACL SPLIT ACL_LENGTH, R2 > 1355 ; 
08 A 52 OC Al 001C9 ADDW3 #127 Re, B(NEWIACL) : ; 
5 56 04 AE C3 ice SUBL3 ACL_SPLIT, ACLLENGTH, R2 > 1356 ; 
5 08 AE 06 AE C1 001D ADDL3 ACLSPLIT ACL POINTER, RO > 1357 ; 
oc A? OC A 52 28 00109 MOVC3 R2,~12(ROS, 1OTNEW_ACLS : ; 
08 BE 67 OE 001DF INSQUE (NEW_ACL), @ACL_POINTER > 1358 ; 
07 0D OO1ES PUSHL #7 : 1359 ; 
50 68 9A OO1E MOVZBL (ACE), RO : ; 
50 08 A 60 001E8 ADDL2 ACL SPLIT, RO ; ; 
OC AO SF OOTEC PUSHAB 12(RO) : ; 
000000006 00 0 FB OO1EF CALLS #2, ALLOC_PAGED : ; 
57 50 DO 001F6 MOVL R : ; 
50 68 9A Oo1F9 MOVZBL (AC : 1360 ; 
50 04 AE CO OO1FC ADDLe” ACL _SPLI : ; 
08 a7 50 OC Al 00200 ADDWS #12> RO, 8(NEW_ACL) : ; 
50 08 AE 00 00205 MOVL. ACL.POINTER, R : 1361 ; 
oc a7 oc Ad 04 AE 28 00209 MOVC3 ACLTSPLIT {2(RO), 12(NEW_ACL) : 1362 ; 
59 53 D0 00 19 MOVL POINTER : ; 
50 9A 0021 MOV ZBL E) : 1363 F 
69 68 0 28 0216 MOVC RO (ACE), (ACE_POINTER) : ; 
60 11 OO2TA BRB 17$ > 1364 : 
07 DD OO2Z1C 16$: — PUSHL : 1368 ; 
6342 9F S021E PUSHAB (R3)CR2) ; F 
000000006 09 Q FB 00221 CALLS oe ALLOC_PAGED : ; 
5 DO 00228 MOVL. RO. NEW : ; 
52 3 06 =A g SUBL3 ACL_SPLIT, ACL_LENGTH, R2 > 1369) ; 
68 9A MOV (ACE), RO : | ; 
3 C0 ADDL RO Re ; ; 
08 ar oc A ADDWS #10, R2, 8(NEW_ACL) ; : 
5 9A mOVZBL (ACE), RO : 1370 ; 
oc a? : 2 : MOVC RQ. (ACE), 12(NEW_ACL) : ; 
D 4 MOVL. 3, ACE _POIN : ; 
52 6 06 AE C 46 SUBL3 ACL_SPLIT, ACL_LENGTH ; 1371 : 
5 08 AE 06 A 4B ADDL ACL sPLiT ACL“POINTER, RO : 1372 : 
69 o¢ A 52 28 00251 MOVC3. R2,~12(ROS, (ACE_POINTER) ; ; 
8 BE E 6 INSQUE (NEW_ACL), @ACL_POINTER : 1373 ; 
7 0D A PUSH a7 : 1374 ; 
7E 08 ar c C1 C ADDLS #12, ACL_SPLIT, (SP) : ; 
000000006 0 2 FB 00261 CALLS #2, ALLOC_PAGED ; | : 
| 
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vou $60 ACL_ADDENTRY = add an ACE t AC 1a-8ep 382 3 34; 88 DISKS vmen STER:CF11X.SRCIACLS 32:19 v06: 
57 30 D 8 MOVL ; 
08 A? 04 Ar iC a8 ADDW3 BYs NE Aer Si rr 8(NEW_ACL) : 
5( 08 he 0 ACL_POINTER : 
OC A? AO e i 7 MOVC3 ACL SPLIT, {2(RO), 12(NEW_ACL) : 
BE 6? O£ O07C 17$:  INSQUE (NEQ_A @ACL_POINTER : 
AE 08 BE F 18$: REMQUE gael “POINTER. ACL_POINTER : 
DD PUSHL #7 : 
OC 8 =6AE OD PUSHL ACL_PO : 
000000006 00 02 F A CALLS “PALLOG® RAGED ; 
01 A ? 31 19$: CAPS Ice) : 
06 01 AB 94 33 CMPB #08 6). 46 ; 
05 1 98 BNEQ 21$ ; 
08 BC 06 0 2 20$: INCL GACL_CONTEXT : 
08 et 01 AA YE 00 Kg i$: MOVA 71(R10), @ACL_CONTEXT : 
fs a ea : 
20 4 §§ O2AD MOVZBL (ACE), RO : 
5 0 £0 0 80 ADDL2 RO, ACE F 
FD57 31 «0028 BRW 1$ ; 
50 01 DO 002B6 238: MOVL #1, RO : 
04 00289 RET ; 


; Routine Size: 698 bytes, Routine Base: $CODE$S + 0049 


a a es ee es ee ee ee ee ee ee en en ee en en ee ee ee ee ee en en ee ee ee ee ee ee ee 2 ee ee ee ee ee ee 
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ZSBTTL ‘ACL_DELENTRY = remove an ACE " a 


; tlg - 1399 #1 m an ACL‘ 

: rt 1401 ! GLOBAL ROUTINE ACL_DELENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE) = 

3; 415 14 ; 1 le4 

; $18 1405 1! 

; tik 1495 : FUNCTIONAL DESCRIPTION: 

; 419 14 : 1! This routine is used to delete an Access Control entry from a file ACL. 
; 420 1407 1! If the ACL context is valid, and no ACE is specified, then the ACE 

; 421 1408 1! pointed to by the context is removed. If an ACE is specified, 

3 : ¢ 1298 ! regardless of the ACL context, it is first located and then removed. 
: 424 1411 1. ! CALLING SEQUENCE: 

; 2 2 1216 ! } ACL_DELENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE) 

: 427 1414 1. ! INPUT PARAMETERS: 

: 428 1415 1! ACL_QUEUE HEAD: address of queue header for ACL 

; 429 1416 1! ACL-CONTERT: address of ACL context longword 

: 430 1417 1! COUNT: size of the user Access Control Entry 

3 $3) 1213 : ACE: address of the user Access Control Entry 

; 135 1420 1 ! IMPLICIT INPUTS: 

; 434 1421 1! NONE 

; 435 14 ; 1! 

; 436 14 1 ! OUTPUT PARAMETERS: 

3; 437 1424 1! NONE 

; 438 1425 1! 

; 439 1426 1°! IMPLICIT OUTPUTS: 

: 440 lest 1! NONE 

; «6441 1428 1! 

; re 1963 1 ! ROUTINE VALUE: 

; 464 1430 1! 1 

3: 4446 1431 1! 

: 445 1336 1 ! SIDE EFFECTS: : 

; 466 14335 1! The Specified ACE is removed from the ACL. If the ACL segment is then 
; 467 1434 1! empty, it is removed from the chain. The ACL context is updated to 
3; 448 1435 1! point to the next ACE in the ACL. 

; 4449 1638 1! ; 

; 450 1437 1 !-- 

; «451 1438 1 

; +26 1439 BEGIN 

; 45 1440 

: 454 1441 MAP 

: 455 1466 ACL_QUEUE_ HEAD : REF $BBLOCK, ' Queue header for ACL 

3 $28 144 ACL_CONTERT : REF S$SBBLOCK, ' Context longword 

3; 45 1444 ACE : REF S$BBLOCK; ! Address of the user ACE 

; 458 1445 

; 459 1048 LOCAL 

3; 460 144 ACL_POINTER SBBLOCK, ! Pointer to current ACL segment 
3; 461 1448 ACL SPLIT $BBLOCK, ! Offset to current ACE 

: 46 1449 ACE_POINTER SBBLOCK, ! Pointer to current ACE 

: 46 1450 ACE_NUMBER, ! Index of ACF in 

: 464 1451 ACL_LENGTH, ' Length of all ACE's in segment 
; $92 1426 NEW_ACL SBBLOCK; ! Address of the new ACL segment 
: .46 1454 

; 468 1455 ! Sanity check the Length of the supplied ACE. 
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DELENTRY = remove an ACE from an ACL i a oe $3: 30; 88 DISK syne 


IF .COUNT LSSU 4 
AND .COUNT NEQ 0 
THEN RETURN SS$_BADPARAM; 


! Lorete the ACE by content if the content is specified. Note that this 
! will change the context. 


IF_ .ACL_ QUEUE wis Wat: FLINKI EQLA ACL_QUEUVE_HEADCACLSL_FLINK] 
THEN ACC_ERROR (SSS$_ACLEMPTY); 

IF .COUNT NEQ 0 

THEN Nor ACL _FINDENTRY (.ACL QUEUE HEAD, .ACL_CONTEXT, .COUNT, .ACE, 


EN IF 
THEN ACL_ERROR (SS$_NOENTRY); 


On 


JACLSUBR. B32:1 


ACE. ere = ACL_LOCATEACE (.ACL_QUEVE_HEAD, .ACL CONTEXTCCONTEXT_INDEX], ACL_POINTER, ACL_SPLIT); 


ACE-POINTER = ACC_POINTERCACLSL ‘cist 7 JACL SPLIT; 


! Having located the ACE, compute the Length of the remaining segment. 
i If it is non-null, allocate a new es grey and aony in the remaining 
! portions of the old one. Finally deallocate the old segment. 


ACL_LENGTH = .ACL_POINTERCACL$W_SIZE] = ACLSC_LENGTH - .ACE_POINTERCACESB_SIZE); 


IF [ACL _LENGTH NEG 0 
THEN 


NEW ALLOC PAGED (act sc LENGTH + .ACL ckENGTH. ACL_TYPE); 
NEW “Att acts W_STZE] = ACL$C_CEN + ACL * ae 

CHSMOVE (.ACL SPLIT, att LS OTNTERCACLSL WLIST NEW. ACLCACL$L_LISTI); 
CHSMOVE ie. LENGTH = .ACL_SPLIT 


L_POINTERCACLSL CIST + .ACL SPLIT + .ACE_POINTERCACESB_SIZEJ, 


ACLCACLSL_LIST) + .ACL_SP 
INSQUE ‘ NEU “ACL, ati ~POINTERCACLSC *BLINKS); 


REMQUE (.ACL_POINTER, ACL_POINTER); 
DALLOC_PAGED™(.ACL_POINTER, ACL_TYPE); 


RETURN 1; 


01FC 00000 -ENTR 
5E 08 ce Boos SUBL2 ’ 
04 Oc AC OD 00 CMPL COUNT, #4 
09 1 09 BGEQU§ 1% 
oc AC D 0B TSTL COUNT 
04 1 0 BEQL 
50 it) p 1 MOVL #20, RO 
4 1 RET 
04 AC 04 Bf D1 14 1$ CMPL 
18 12 19 BNEQ 
00 6E 00 2C 00018 MOVCS #0, (SP), #0, COUNT, @ACE 


! End of routine ACL_DELENTRY 


Y ACL_DELENTRY, Save R2,R3,R4,R5,R6,R7,R8 


@ACL_QUEUE_HEAD, ACL_QUEUE_HEAD 


ACLSUBR 
Vv 


1 

1 

02 9D 
9D 


wiPrul 


oc 
7E OC 
7E 04 
0000Vv 44 
oc AC 00 6E 
10 
02 AD 0908 
$0 (0908 
08 
7E 08 BC 18 
04 
0000v gf 
6 04 
57 56 
57 
56 08 
50 
56 
56 
oc 
000000006 9° 
08 A8 56 
50 04 
Oc AB oc Ad 
56 
51 04 AE 
52 
50 58 
oc Ad OC A241 
50 04 
04 860 
04 AE 04 
08 


000000006 98 


; Routine Size: 224 bytes, Routine Base: 


-000 ACL_DELENTRY = remove an ACE from an ACL 
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Ww 
bed 


4$: 


“1986 42:30:07 DI SkSMSMASTERSCF1iX-¢RCIACLSUBR.03251° 


=(SP) 
ACL NOUEUE HEAD, =(SP) 
#5, ACL_FINDENTRY 


a 


R 
Rg. (SP), #0, COUNT, @ACE 


SP 

ate POINTER 

, #24, @ACL CONTEXT, =(SP) 
EUE HEAD 


ACL-SPL gs R7 
#i AC a: "BoIN NTER 


(ACE_POINTER), RO 
He, ACL_LENGTH 
Boe LENGTH) 
ALCOC_PAGED 
W_ACL 
Rts, weec LENGTH, 8(NEW_ACL) 
ACL_POINT 


ACL SPL, {2(RO), 12(NEW_ACL) 
ACL-SPL 


N “R 
ACL_SPLIT NEW_ ACL, RO 
CR Pr 12(R0) 


R2SCR 

NTE 

L), @4(RO) 

INTER, ACL_POINTER 
NTE 

LOC 


_PAGED 


Pee Se Se Se Se Se Ge Se Ge Se Ge Se Ge Se Ge Ge Be Se Ge Be Ge Se Ge Se Se Se Se Be Be Ge Se Se Fe Fe Se Ge Fe Ge Ge Fa Se Be Se Be Be Ge Be Fe Se Se 
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! Sanity check the Length of the supplied ACE. 


IF _ .COUNT LSSU 4 
THEN RETURN SS$_BADPARAM; 


VLEAFAVIS 


; 5 1497] XSBITL “ACL MODENTRY = modify an existing ACE" | ; 
3 : 1338 } GLOBAL ROUTINE ACL_MODENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE) = : 
: 5146 1500 1 !4+ 3 
3 319 1501 1! : 
3 1 } 08 : } FUNCTIONAL DESCRIPTION: : 
: 18 1506 1! This routine is used to replace an Access Control entry in a file ACL. : 
3 4 : 82 : The entry pointed to by the context is replaced with the ACE given. ; 
3 1 1808 1 ! CALLING SEQUENCE: 3 
3 § 1208 ! ACL_MODENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE) : 
3 4 1319 1 ! INPUT PARAMETERS: s 
3 5 1917 1! ACL_QUEUE HEAD: address of queue header for ACL : 
$ 6 1316 1! ACL-CONTERT: address of ACL context longword 3 
: 7 151 1! COUNT: size of the user Access Control Entry ; 
; : : ae : ACE: address of the user Access Control Entry ; 
3; 320 1516 1 =! IMPLICIT INPUTS: 3 
; 531 1517 1! NONE 3 
: 236 1518 1! 3 
s = 1519 1 ! OUTPUT PARAMETERS: ; 
; 534 1520 1! NONE F 
3 5335 13! 1! 3 
; 536 15 ; 1 ! IMPLICIT OUTPUTS: 3 
s Dor Joes 1 $ NONE 3 
3; 338 15246 1! : 
; 539 1525 1 ! ROUTINE VALUE: 3 
; 540 1526 1! 1 3 
3 «541 Ser 1! 3 
: 206 1528 1 ! SIDE EFFECTS: : 
; 54 isey 3 i The ACE is replaced with the new one. This is done by deleting the ; 
: 544 1530 1! ACE pointed to by the context and then inserting (adding) the ; 
; 545 1531 1! changed ACE. $ 
; 546 1336 1! 3 
3 347 15335 1 !-- F 
; 548 1534 1 F 
3; 549 1535 2 BEGIN : 
; 550 1536 F 
3 35) 1537 MAP 3 
; 226 1538 ACL_QUEUE HEAD : REF S$BBLOCK, ' Queue header for ACL : 
; 32 1539 ACL_CONTERT : REF $BBLOCK, ! Context longword : 
3 eee 12 ? ACE : REF $BBLOCK; ! Address of user supplied ACE : 
3 228 15 § LOCAL : 
ae 15 ACL_POINTER REF $BBLOCK, ! Pointer to current ACL segment : 
; 558 1544 ACL_SPLIT REF $BBLOCK, ! Offset to current ACE F 
; 559 1545 ACE_POINTER REF $BBLOCK, ' Pointer to current ACE : 
; 12 § ACE_NUMBER; ! Index of ACE in ACL : 
3 ; 1548 : 
3 1549 : 
: 1550 

: HE 

3 5 15 : 


ACL_MODENTRY = 
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! Check for something in the ACL. 


IF .ACL QUEUE Wiss Witt “oym EQLA ACL_QUEUVE _HEADCACLSL_FLINK] 
THEN ACC wERROR (SS$_ACLEMPTY) 


! Now locate the ACE to be noditted. 


ACE_NUMBER = tht LOCATEACE (.ACL_QUEUE_HEAD, ACh CONTEXTCCONTEXT_INDEX], ACL_POINTER, ACL_SPLIT); 
IF TACL POINTER ACLSL fe yt wh ACL_QUEU HEAD ACLS$L_FLINKJ 
POINTER ACL$W-SIZEJ~= ACLSC_LENGTH 


THEN ACLS “ERROR Sss wkaTeeN * 
! Remove the old ACE by context. 

ACL_DELENTRY (.ACL_QUEUVE_HEAD, .ACL_CONTEXT, 0, 0); 

! Insert the new ACE. 

ACL _ADDENTRY (.ACL_QUEUE_HEAD, .ACL_CONTEXT, .COUNT, .ACE); 


RETURN 1; 
1 END; ! End of routine ACL_MODENTRY 
003C 9008 «ENTRY ACL_MODENTRY, Save R2,R3,R4,R5 
SE 08 C2 9002 SUBL2 : 
04 0c aC D1 0000 CMPL COUNT, #4 
04 1€ 00009 BGEQU 1$ 
50 14 pOd 00008 MOVL #20, RO 
04 O000E RET 
04 AC 04 BC 01 OOOODF 1$: CMPL @ACL_QUEUE_HEAD, ACL_QUEUE_HEAD 
18 12 06014 BNEQ 
00 6 00 2C 00016 MOVCS #0, (SP), #0, COUNT, @ACE 
10 BC 0001C¢ 
50 10 AC 00 90015 MOVL AcE RO 
02 Ad 0900 BF 0 000 MOVW We i, 2(RO) 
50 0900 8F 3C 00028 MOVZWL #2512. RO 
4 0002D RET 
SE pd O2E 2%: PUSHL 
08 AE OF 0 PUSHAB ACL POINT 
BC 18 0 EF EXTZV “#26, aac. CONTEXT, -(SP) 
04 AC DD 000 PUSHL  ACL_QUEUE_H 
0000V F 04 fe 003C CALLS eee “AGL UE OCATEACE 
0 04 AE DO 00041 MOVL Act PO OINTE 
04 AC $ D1 00045 CMPL j, ACLe _ QUEUE _HEAD 
4 12 00049 BNEQ 
50 08 Ad 3 4B MOVZWL 8(RO), RO 
50 oc C 4F SUBL2. #12, 
50 6— 01 0005 CMPL ACL_SPLIT, RO 
18 12 BNEQ 
00 6E ~ 00 2¢ ’ MOVCS #0, (SP), #0, COUNT, @ACE 
50 10 AC dO 0005F MOVL ACE, RO 
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; Routine Size: 139 bytes, Routine Base: S$CODE$ + 0363 


0-742 
MSMASTER: ch HFiR . SRCJACLSUBR. B32: 
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¥04=000 ACL_MODENTRY = modify an existing ACE 13-Sen-1984 43:30:89 BMcdumBhadfenccy 
56 3 3 f t 3 RWruL 13850" aad 
7E 7C F 38: CLRQ = = (SP) 
7E 04 at 7p l MOV ACL QUEUE HEAD, | =(SP) 
sa é Re 2D A mova ni “ACL DELENTAY 
: Bf at D MOVO  ACL_QUEUE_HEAD, -(SP) 
FBDF cf FB ; CALLS #4, ACL ADDENTRY 
; " Be b008A 


2 F 
3 1 
3 1 
= 4 
eS 
: 1 
5 1 
. 1 
= 1 
¢ 1 
4 
s 1 
. | 
3 1 
3 1 
21 
3 1 
| 
31 
: 1 
s 1 
s | 
: 1 
S| 
s 1 
s | 
s 1 


ROUTINE VALUE: 
1 if successful 
0 otherwise 


ooo 
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ACL_FINDENTRY = locate a specific ACE 12-808=138e $3:30:05 DISKSVMSMASTER:CF1iX.SRCIACLSUBR.B32;1> (6) | v0e 
9 77 ZSBTTL ‘ACL_FINDENTRY = Locate a speci tts ACE‘ 
a7 a GLOBAL ROUTINE ACL_FINDENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE, INTERNAL) = 
95 » hated 
$7 ; FUNCTIONAL DESCRIPTION: 
99 4 i This routine locates the specified Access Control Entry and sets the 
ony 5 ACL context accordingly. 
60 : i CALLING SEQUENCE: 
603 8 : ACL_FINDENTRY (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE, INTERNAL) 
605 i INPUT PARAMETERS: 
ope 91 : ACL_QUEUE HEAD: address of queue header for ACL 
60 3 ! ACL_CONTERT: address of ACL context longword 
608 9 ' COUNT: size of the user Access Control Entry 
609 94 ! ACE: address of the user Access Control Entry 
1 95 : INTERNAL: 0 call generated by a user request 
: 38 } 1 call generated within the system 
1 98 i IMPLICIT INPUTS: 
1 99 ! NONE 
1 00 ! 
1 01 ! 
: 0$ | | 
1 04 i IMPLICIT OUTPUTS: 
05 ! NONE 
0 1 
} 
} 
i 
! 
i 
i 
le 
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1 
1 SIDE EFFECTS: 
1 NONE 
1 
1 . 
1 
3 : BEGIN 
3 18 3 map 
34 1 ACL_QUEUE_HEAD : REF $BBLOCK, ' Queue header for ACL 
5 ACL_CONTERT : REF $BBLOCK, ' Context longword 
: REF SBBLOCK; ! Address of user ACE 
LOCAL 


w 


ACL_POINTER : REF SBBLOCK, Pointer to current ACL segment 
ACL_SPLIT : REF S$BBLOCK, Offset to current ACE 
rey at : REF SBBLOCK, Pointer to current ACE 


ER; ! Index of ACE in ACL 


| 

| 

| 

OUTPUT PARAMETERS: 
NONE 


! Sanity check the lenath of the supplied ACE. 


IF .COUNT LSSU 4 
THEN RETURN SS$_BADPARAM; 
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ACL_FINDENTRY = Locate a specific ACE 127808-1 383 93:39:09 DISKSVM ix. SRCJACLSUBR.B32:1> Fr 
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WN “OC ODONOUES WO” 


! Check the Length of the supplied ACE to make sure we've been given a 
! complete buffer. 


IF .ACECACESB SIZE) GTRU .COUNT 
THEN ACL_ERROR (SS$_IVACL); 


! If there is no ACL present on the file, set the context to zero and return. 


PAAAAAAAAO 


wy 


IF ACL_QUEUE_HEADCACLSL_FLINK3 EQLA ACL_QUEUE_HEADCACLSL_FLINK] 


5 te 


BEGIN 
-ACL_CONTEXT = 0; 
Jf; INTERNAL THEN RETURN 0 ELSE ACL ERROR (SS$_ACLEMPTY); 


FSFS- 


! Loop through all of the ACL segments trying to locate the specified ACE. 


33235 3 


ACE_NUMBER = 0; 
ACL“POINTER = ACL_QUEUE_HEADCACLSL_FLINK; 


aon 
aN 
-—-o 


BEGIN 
ACL_POINTER = .ACL_POINTERCACLSL_FLINK]; 
ACE-POINTER = ACL_POINTERCACLSL Chat; 


67 
UNTIL -ACE_POINTER GEQA .ACL_POIN 


67 + .ACL_PCINTERCACL$W_SIZEJ 


RR AAAN AAA AAR 


BEGIN 
ACE_NUMBER = .ACE_NUMBER + 1; 


WN O ODNAUE WN" OOONAMNE WN" OWOONOuUS 1 


ao 


! How we match the ACE is type dependent. Generally speaking. ACEs match 
on the portion of their content by which they are selected in normal 
! use. 
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BEGIN 
SAGE ,SCRCACEOR_TUPE FROM ACESC_KEYID TO ACESC_DIRDEF OF 


CACESC_BIJNL, 
ACESC_AIJNL, 


AARAAAOCOO 
SSN 


RDEF): 
~ VACECACESB_TYPE] EQL .ACE_POINTERCACESB_TYPE); 
CACESC_INFO, 
NRANG 
OUTRANGE): 


CHSEQL (.ACECACESB S176] ; 
“ACE_POINTERLACESB.. 
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15-Sep-1984 23:51:08 VAX-11 Bliss-32 V4.0-742 — 
ACL_FINDENTRY = locate a specific ACE 14-Sep-1984 12:30: DISKSVMSMAS TER: CF11X.SRCJACLSUBR. B32. 79 * «| 
1691 AND CHSEQL (ACECACESB SIZE] = S$BYTEOFFSET (ACESL_KEY) | 
169¢ = .ACECACESV_RESERVED]* 
169 ACECACESL_KEY] + .ACE aces RESERVEDI*4, | 
1694 ACE POINTERLACESB SIZE) - SBYTEOFFSET (ACESL_KEY) 
1695 = .ACE_POINTERCACESV RESERVED] #4 | 
1696 ACE_POINTERLACESL_KEV) + .ACE_POINTERLACESV_RESERVED]*4); 
1698 CACESC_AUDIT 
1699 ACESC-ALARM) : 
1 90 . ACE Fat . «ACE_POINTER 
1701 AND CHSEQL CACECACESE SIZE] - $BYTEOFFSET (ACEST_AUDITNAME), 
17 é ACECACEST_KUDJ TNAME] 
17 .ACECACESS 5126 - $hyT TEOFE SET (ACEST_AUDI TNAME) , 
1204 ACE_POINTERLACEST_AUDI TNAMEJ) ; 
17 TES 
1509 END 
1708 4 THE 
1709 5 BEGIN 
1710 5 .ACL_CONTEXT = .ACE_N UMBER : 
711 5 ACL CONTERTLCONTEXS “TYPE = .ACE_POINTERCACESB_TYPE]; 
71 5 RETORN 1; 
ine . 
1715 4 AcE ;POINTER = .ACE_POINTER + .ACE_POINTERCACESB_SIZE]; 
1717 
1718 weit Pace POINTERCACLSL. FLINK] EQLA ACL_QUEUE_HEADCACLSL_FLINK]; 
1719 ~ACL_CONTERT = 
1781 ! At this point the desired ACE has not been found. Return failure. 
1798 3 1 INTERNAL THEN RETURN 0 ELSE ACL_ERROR (SS$_NOENTRY); 
1725 1 END: ! End of routine ACL_FINDENTRY 
01FC 00000 .ENTRY ACL_FINDENTRY, Save R2,R3,R4,R5,R6,R7.R8 =; 1578 
04 Oc ac 01 90002 CMPL COURT, #4 > 1632 
04 te 0006 BGEQU 1 : 
50 14 ; 99008 MOVL #20, RO > 1633 
ry 0B RET 3 
10 BC 08 00 €D 9900 1$ CMPZV #0, #8, @ACE, COUNT : 1638 
18 1B 0001 BLEQ : 
00 6E = 00 2¢ an18 MOVCS #0, (SP), #0, COUNT, @ACE ; 1639 
50 10 Ac D0 01D MOVL : 
02 A giE4 F 021 MOVW P8676" 95 (RO) ; 
5 164 BF ¢ t MOVZWL A 676. RO 3 
04 AC 04 BC p 2s: cMPL @ACL_QUEUE_HEAD, ACL_QUEUE_HEAD 1643 
08 BC D 0 CLRL @ACL_CONTEXT : 1646 
03 14 AC €9 7 BLBC —sINTERNAL, 3$ : . 
| 
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50 8 UB #8 RO : 
08 AG 08 Aé ; a cee RO, 8(R6), 8(ACE_POINTER) + 1704 
08 8B 8 DO 001 " MOVL «= ACE_NUMBER, @ACL_CONTEXT + 1710 
08 BC 08 1 01 AG OF 1 INSV  1(ATE_ POINTER), 924, #8, @ACL_CONTEXT + 1711 
5 01 bY 198 nove #i, RO : 1712 
50 $4 gf 111 148: MOVZBL (ACE_POINTER), RO : 1715 
54 0 £0 114 ADDL2 RO, ACE_POINTER : 
FF49 31 O17 BRW 6$ : 1658 
04 ac 5 D1 OO11A 158: CMPL (ACL_POINTER), ACL_QUEUE_HEAD + 1718 
3 13 oi] BEQL 16$ ; 
FF 1 001 BRW 5$ : 
08 BC D4 00123 148: CLRL § @ACL_CONTEXT : 1719 
03 14 AC E9 00126 BLBC —sCINTERNAL, 18$ + 1723 
5 D4 91 A 17$: cURL RO : 
oc AC 00 6E ‘ 00 C a ; 18$:  MOVCS #0, (SP), #0, COUNT, @ACE : 
50 10 AC dO 00135 VL ACE RO ; 
02 a 0908 8F B80 00139 OVW ae 30, 2(RO) : 
50 0908 8F 3c 001 3F MOVZWL #2520, RO : 
4 00144 ET t 1725 
; Routine Size: 325 bytes, Routine Base: $CODE$S + 046E 
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ACL_FINDTYPE = locate a specific type of ACE 
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; 74 17 $ 1 ZSBTTL Att FINDTYPE = locate a specific type of ACE’ | ; 
: oz \? ! GLOBAL ROUTINE ACLLFINDTYPE (ACL_QUEUVE_HEAD, ACL_CONTEXT, COUNT, ACE, INTERNAL) = | ; 
; 745 17 5 1 !+4 ‘ 
; bg 1730 1! ‘ 
; a? 1731 1} FUNCTIONAL DESCRIPTION: | ; 
; 749 17 : 1t This routine locates an Access Control Entry of a specific type. ‘ 
3 £20 Vy 3 : The ACL context is set accordingly. ‘ 
73¢ 1736 1 | CALLING SEQUENCE: | 
3 Pe? Vy ‘ : ACL_FINDTYPE (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE, INTERNAL) | ‘ 
3; 1739 1 ! INPUT PARAMETERS: : 
: 756 1740 1! ACL_QUEUVE_HEAD: address of queue header for ACL ‘ 
: 757 1741 1! ACL-CONTERT: address of ACL context longword ‘ 
; 758 17h 1: COURT: size of the user Access Control Entry : 
; 759 1745 1! ACE: address of the user Access Control Entry ‘ 
; 760 1744 1! INTERNAL: 0 call generated by a user request : 
; 761 1745 1! 1 call generated within the system : 
; roe 1746 1! ‘ 
3 76 1747 1-! IMPLICIT INPUTS: ‘ 
; 764 1748 1! NONE ; 
: 765 1749 1! : 
; 766 1750 1 ! OUTPUT PARAMETERS: : 
3 fer 1751 1! NONE : 
; 768 1736 1! : 
: 769 1755 1! IMPLICIT OUTPUTS: : 
: 770 1754 1! NONE ‘ 
3s gr 1755 1! : 
; 77 1756 1 ! ROUTINE VALUE: : 
. iF 1757 1! 1 if successful : 
3; 774 1758 1! 0 otherwise ‘ 
3; es 1759 1! : 
; 776 1760 1 ! SIDE EFFECTS: : 
3 fre 1761 1! NONE ‘ 
; 778 1738 1} : 
3; 779 1765 1 !-- : 
: 780 1764 1 : 
3 fel 1765 BEGIN : 
; 1766 : 
; 784 1768 ACL_QUEUVE HEAD : REF $BBLOCK, ! Queue header for ACL | : 
: 785 1769 CL-CONTERT : REF $BBLOCK, ' Context longword : 
: ff 1770 : REF SBBLOCK; ! Address of the user ACE : 
; 78 1771 : 
3; 788 Wire LOCAL : 
; «4789 177 ACL_POINTER : REF SBBLOCK, ' Pointer to current ACL segment : 
: 790 1774 ACL_SPLIT : REF SBBLOCK, ! Offset to current A : 
: 791 1775 ACE_POINTER : REF $BBLOCK, ' Pointer to current ACE 3 
; 1708 ACE _NUMBER; ! Index of ACE in ACL : 
: 79 177 ‘ 
3: 794 1778 ? ; 
3 ae HAG ! Sanity check the Length of the supplied ACE. : 
3; 1781 IF .COUNT LSSU 4 : 
; 4798 1782 THEN RETURN SS$_BADPARAM; ‘ 
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ACL_FINDTYPE = locate a specific type of ACE 
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! Determine if the ACL is pee if it is, set the context to zero, indicate 
! a failure by clearing the returning ACE, and return success. 


IF _ ACL QUEUE _HEADCACLSL_FLINK] EQLA ACL_QUEUE_HEADCACLSL_FLINK] 


BEGIN 
-ACL CONTEXT = 0; 
LF: INTERNAL THEN RETURN 0 ELSE ACL_ERROR (SS$_ACLEMPTY); 


If the search is for an = sree different from the Last ACE type tsound, 
start from the beginning of the ACL. Otherwise, continue the search from 
the ACE after the Last one found. If the ACE type is found, save the 
current context and return the contents of the ACE. If the ACE type was 
not found, determine whether or not it is the first time through and set 
the appropriate error status. 


IF .ACL_CONTEXTCCONTEXT_TYPE] EQL 0 
OR :ACL~CONTEXTCCONTEXT-TYPE] NEG .ACECACESB_ TYPE 


THEN .ACL_CONTEXT 
-ACL_QUEUE_HEAD, .ACL CONTEXTCCONTEXT_INDEX] + 1, ACL_POINTER, ACL_SPLIT); 


NTEXT = 0; 
ACE_NUMBER = ACL LOCATEACE ( 
ACE_POINTER = ACC_POINTERCACLSL_CIST)] * .ACL_SPLIT; 


WHILE 1 
DO 
BEGIN 
IF ,ACE.POINTER GEQA .ACL_POINTER + .ACL_POINTERLACL$W_SIZEJ 


BEGIN 
ACL_POINTER = .ACL_POINTERCACLSL_FLINK]; 
ACE-POINTER = ACL_POINTERCACLSL_CISTI; 


N 
IF ACL_POINTERCACLSL_FLINK] EQLA ACL_QUEUE_HEADCACLSL_FLINK] 
THEN ERITLOOP; 


IF -ACECACESB TYPE) EQL_.ACE_POINTERCACESB_TYPE] 
AND CHF A ECACESB_TYPE] NEQ-ACES$C_INFO 
ELSE .ACECACESV_INFO_TYPE] EQL .ACE_POINTERCACESV_INFO_TYPE]) 


-ACL cory 


act CONTE E_POINTERCACESB_TYPE); 
CHSTOPY ( E 


J, .ACE_POINTER, 


ACE_POINTER = .ACE_POINTER + .ACE_POINTERCACESB_SIZEJ; 
ACECNUMBER = .ACE_RUMBER + 1; 


! At this point the end of the ACL has been reached. Return failure. 


-ACL_CONTEXT = 0; 
IF . INTERNAL THEN RETURN 0 ELSE ACL_ERROR (SS$_NOENTRY); 
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: 889 1829 f END; ! End of routine ACL_FINDTYPE 


00F¢ 00 .ENTRY ACL_FINDTYPE, Save R2,R3,R4,R5,R6,R7 : 1727 
SE 08 C2 0000 SUBL2 #8, "SP : 
04 0c aC DI 0005 CMPL COUNT, #4 ; 1781 
50 14 06 0008 MOVL #20, RO + 1782 
4 E RET ; 
04 AC 04 BC D4 O00F 1$: cHPL QACL_QUEUE_HEAD, ACL_QUEUE_HEAD ; 1787 
08 BC D4 a9016 CLRL § @ACL_CONTEXT + 1790 
03 14 oon’ &9 0019 BLBC INTERNAL, 2$ ; 1791 
00 6E 7 00 2c 00020 2$: MOVCS #0, (SP), #0, COUNT, @ACE : 
50 10 AC DO 000 8 MOVL ACE RO F 
02 AO 0900 = 8F 80 900 C MOVW We iz. 2(RO) : | 
50 0900 BF 3¢ 003¢ MOV ZUL #2512, RO ; 
08 BC 08 18 FD 00038 3$: CHPZV #24, #8, @ACL_CONTEXT, #0 ; 1801 
10 ac 00 0028 MOVL ACE, RO + 1802 | 
51 01 AO 9A 00044 MOVZBL 1(RO), R1 ; 
08 BC i8 ED 90048 CMPZV 24, #8, @ACL_CONTEXT, R1 
08 BC D4 00056 4$: CLRL  @ACL_CONTEXT + 1803 
5E DD 00053 5$: PUSHL SP : 1804 
08 AE OF 00088 PUSHAB ACL_POINTER : 
08 BC 18 00 EF 0098 EXTZV WO, H24, @ACL_CONTEXT, -(SP) ; 
04 AC DD $008 PUSHL  ACL_QUEUE_HEAD ; 
0000Vv cr 4 i 906 CALLS a4, ACL LOCATEACE : 
48 04 AE be C 06 ADDL3 ACL_SPLIT, ACL_POINTER, R6 : 1805 
56 0¢ ¢0 000 ADDL2 #12, ACE_POINTER ; 
50 04 AE BO 073 6$: HOVE ACL. POINTER, RO + 1810 
24 08 8) 26 00078 OMe Ron eet Foaet 
51 36 pI Ore CMPL ACE POINTER, R1 ; | 
F 8 BLSSU 7 : 
04 AE 60 D0 O83 MOVL 9). ACL_POINTER + 1813 
56 4 AE oc ¢ 08 ADDL3 4 ##2, ACL_POINTER, ACE_POINTER > 1814 
4 ac 04 é | ot 7$: ‘cart ACL POINTER, ACL_QUEUE_HEAD ; 1816 
50 10 AC po 93 MOVL ACE, RO + 1819 
01 Ab 01 a0 91 97 CHPB 4rd), 1(ACE_POINTER) 
07 01 A 4 i CMPB RO), #7 1820 | 
51 02 A6 02 A : A XORB3 FfR0) 2(ACE_POINTER), R1 ; 1822 
OF 5 3 AA BITB = R1, iS ; 
1A 12 OOOAD BNEQ 9$ F 
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18-se 1984 23:51: VAX-11 Bliss- 
DELETEACL = remove entire ACL from object 12280-1384 $3:30:95 DISKSVMSMASTER: 


; 859 1 § 1 ZSBTTL ‘ACL_DELETEACL = remove entire ACL from object’ 

3 re ! i ! GLOBAL ROUTINE ACL_DELETEACL (ACL_QUEVE_HEAD, ACL_CONTEXT) = 

: ieee di 

; 64 ? | FUNCTIONAL DESCRIPTION: 

: 66 1849 1! This routine removes all the Access Control Entries from a file, 

; 86 1 9 1; except the ACE that granted the calling user access to the file 

3 re] : ! } and any protected ACEs. 

: 870 1888 1 | CALLING SEQUENCE: 

3 } } : : ACL _DELETEACL (ACL_QUEUE_HEAD, ACL_CONTEXT) 

; $78 1856 | i INPUT PARAMETERS: 

; 874 1 3 ACL_QUEUE_ HEAD: address of queue header for ACL 

; 875 1858 1! ACL_CONTERT: address of ACL context longword 

3 B76 1859 1! Note: A context of zero means an internal call, 

3 oe ! ? : meaning that protected ACEs are also deleted. 

: 879 1868 1 i IMPLICIT INPUTS: 

3 eet : ? : NONE 

: 88 1865 1 | OUTPUT PARAMETERS: 

26 24k | te 

: 885 1868 1 | IMPLICIT OUTPUTS: 

: Ba? 1870 1 | — 

: 888 1871 1 | ROUTINE VALUE: 

a fee Bi ee 

: 891 1874 1 | SIDE EFFECTS: 

; 892 1875 1! ALL of the ACE's for a file, except for that ACE that granted access 
; 893 1876 1! to the file and protected ACEs, are removed. This ney or may not be 
: 894 1877 1! all ACE's depending on whether or not the caller is the file owner. 
; 895 1878 1! The file header and all extension headers are modified to reflect the 
3; 896 1879 1! new ACL. 

3; 897 1880 1! 

BBY 

: 900 1883 > BEGIN 

: 302 : 3 MAP 

>; 90 1 34 ACL_QUEUE HEAD : REF $BBLOCK, ' Queue header for ACL 

: 904 1887 ACL_CONTERT : REF $BBLOCK; ! Context longword 

: 908 39 LOCAL 

; 907 1890 ACL_SEGMENT REF S$BBLOCK, ! Address of current segment 
; 908 1891 NEW_ SEGMENT : REF $BBLOCK, ! Address of new ACL segment 
3; 909 1 ¢ OLD_ SEGMENT : REF $BBLOCK, ' Address of old ACL segment 
: 910 1 NEW_POINTER : REF S$BBLOCK, ! Where to put the new ACE 

; (911 1894 OLD_POINTER REF S$BBLOCK, ! Where to get the old ACE 

; aig 1895 NEW_LENGTH, ' Length of new ACL segment 
; 91 1 $ ACE_LENGTH, ' Length of protected ACE 

3 ay : i DUMAY ; ! Throw-away from REMQUE 
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15-Sep-1984 23:51: 
ACL_DELETEACL = remove entire ACL from object 127308-1 384 $3:30;09 
! Loop through removing each ACL segment and deallocate the memory. 
00 ! time, no check is made to see if any ACE within the ACL segment grants 


! access to the file by the caller. 


ACL_SEGMENT = .ACL_QUEUVE_HEADCACLSL Agere 
UNTIL «ACL SEGMENT EQLA ACL_QUEUE_HEAD 


ACL$L_FLINKI 


BEGIN 
OLD_SEGMENT = .ACL_SEGMENT: 

ACL-SEGMENT = .ACL~SEGMENTCACLSL_FLINK); 
REMQUE (.OLD_SEGMERT, DUMMY); 


! Preserve the protected ACEs if necessary. 
IF .ACL_CONTEXT NEQ 0 
THEN 


BEGIN 
NEW tied = OLD_POINTER = OLD_SEGMENTCACLSL_LISTI; 


NEW LENGT 


UNTIL -OLD_POINTER GEQA .OLD_SEGMENT + .OLD_SEGMENTCACLS$W_SIZEJ 


BEGIN 
ACE_LENGTH = ,OLD_POINTERCACESB_SIZEJ; 
ee ATESV_PROTECTEDJ 


BEGIN 
CHSMOVE (.ACE_LENGTH, .OLD_POINTER, .NEW_POINTER); 


NEW_LENGTH = [NEW LENGTH +~.ACE_LENGTH; 
NEW-POINTER = .NEQ_POINTER + .ACE_LENGTH; 


END: 
OLD_POINTER = .OLD_POINTER + .ACE_LENGTH; 

IF .NEW.LENGTH NEQ 0 

THEN 


BEGIN 
EW_SEGMENT = AL 


N A 
NEW” SEGMENTCACL$W_STZE L$C E 
CHSROV 


CeNery + ,NEW_CENGTH 
(.NEW_LENGTH, OLD _SEGMENTCACLSL_LISTJ, NEW_SEGMENTCACLSL_LISTJ); 


Ee ¢. 
JNSQUE (.NEW SEGMENT, .ACC_SEGMENTCACLSC_BLINK]); 
END; : 
DALLOC_PAGED (.OLD_SEGMENT, ACL_TYPE); 


!' Set the context to zero, and return success. 


IF .ACL_CONTEXT NEQ 
THEN .ACL_CONTEXT = 0; 


RETURN 1; 
END; 


VAX-11 Bliss-32 V4.0-742 


Page ; 
DISKSVMSMASTER:CF11X.SRCJACLSUBR.B32;1 ( 


LOC payee enna LENGTH + .NEW LENGTH, ACL_TYPE); 


! End of routine ACL_DELETEACL 
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ACLSUBR 1$-S2p-1 4 VAX=-11 Bliss-32 V4.0-742 P 
v04=000 ACL_DELETEACL = remove entire ACL from object 12786-1382 $3 30: 88 DISKSVMSMASTER: CF Hix. SRCJACLSUBR.832; 1° 
OFFC 00000 ENTRY ACL DELETEACL, Save R2,R3,R4,R5,R6,R7,RB,- ; 
se 08 C32 0002 SUBL2 : 
A 04 BC D MOVL § @ACL_QUEUE_HEAD, ACL_SEGMENT : 
04 AC A p 9 1$: cHPL A L_SEGMENT, ACL_QUEDE_HEAD : 
56 gf D F MOVL ACL SEGMENT OLD_SEGMENT : 
A 6A D 1 MOVL _— (ACC_SEGMENT), ACL_SEGMENT : 
6E 66 OF 0001 REMQUE (OLD 3 cm EN * DUMMY : 
08 ac D5 1 TSTL ACL_CONTE : 
51 1 O18 BEQL 3 : 
57 0c Ag 9 1D MOVAB 12(R6), OLD_POINTER : 
04 AE 57 00 00021 MOVL  OLD_POINTERT NEW_POINTER : 
59 D4 0025 CLRL -NEW"LENGTH : 
50 08 Ab 3¢ 90 7 2%: MOVZWL 8 (OCD SEGMENT), RO : 
50 26 CO 00028 ADDL2 OLD_SEGMENT, RO : 
50 57 D1 0002E CMPL OLDPOINTER, RO ; 
19 1€ 00031 GEQU 4$ * : 
58 67 9A 00033 MOVZBL (OLD_POINTER), ACE_LENGTH : 
0c 03 A? 01 gi 00036 BBC ri 3(OLD.P POINT : 
04 BE 67 5B 28 00038 MOVC3 ACE_LENGTA, ¢ POINTER), @NEW_POINTER ; 
59 58 CO $00 ADDL ACE- -tENe 1H, neu UW CENG 3 
04 AE 5B CO 0004 ADDL2 ACE-LENGTH., NEW POINTER ; 
5? 5B CO 00047 3$: ADDL2 ACE-LENGTH, OLD-POINTER : 
DB 11 0004A BRB 2$ ~ ; 
59 rf O04C 4$: TSTL NEW_LENGTH : 
16 1 OO4E BEQL 6 ; 
07 od 0005 PUSHL #7 ; 
0c Ad OF 00052 PUSHAB 12(NEW_LENGTH) ; 
000000006 00 02 FB 0005 CALLS , ALCOC PAGED ; 
58 50 pdO 0005C MOVL NEW_SEGMENT ; 
08 As 59 O¢ Al 0005F ADDW3 RO, NEQ_LENGTH, 8(NEW SEGMENT) : 
0c «AB OC Ab 9 28 00064 MOVC3 "State rob se ecot LD_SEGMENT), : 
04 BA 68 OE O006A INSQUE (NEW. SecHENT) . @4(ACL_SEGMENT) : 
07 DD 0006 5$ PUSHL ; 
6 DD 00 PUSHL OLp_s ENT ; 
000000006 00 02 FB 0007 CALLS “paCLOC _PAGED ; 
BE 11 0007 BRB 1 : 
08 aC D3 90078 6$: TSTL | ACL_CONTEXT ; 
03 13 OO007E BEQL «867 ; 
08 BC D4 9080 CLRL  @ACL_ CONTEXT : 
50 01 20 0083 7$ MOVL #1, RO : 
4 00086 RET : 


; Routine Size: 135 bytes, Routine Base: S$CODE$ + 06A8 
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ACL_READACL = read one or more ACEs 12780 8=138e $3:30:09 DISKSVMSMASTER:CF1iX.SRCJACLSUBR.B32:1> (3) 


i 
33 


; 970 19 g 1 ZSBTTL ‘ACL _READACL = read one or more ACEs' : 
: 48 13 ? ! GLOBAL ROUTINE ACL_READACL (ACL_QUEUE_HEAD, ACL_CONTEXT, LENGTH, ACE_BUFFER) = ; 
° | - 
: 378 1955 1 i++ | ‘ 
> 974 19 § 7} : 
s 9% 1957 1 ! FUNCTIONAL DESCRIPTION: : 
; 976 1328 | ‘ 
3 977 1959 1! This routine returns as much of the file ACL as will fit in the user's ; 
; 978 1960 1! buffer. Successive calls will return the unread portions of the ACL ; 
3; 9ry 1961 1! until the entire ACL has been read. If an attempt is made to read ‘ 
3 oat 1306 : } pevond the one os ne ACL, a error is returned to indicate that there ; 
; : S$ no more to be read. ‘ 
; 382 1964 1! ; 
; 1965 1 ! CALLING SEQUENCE: : 
; yee 1966 ACL_READACL (ACL_QUEUE_HEAD, ACL_CONTEXT, LENGTH, ACE_BUFFER) : 
; oe 1968 1 ! INPUT PARAMETERS: : 
; © 1969 1! ACL_QUEVE HEAD: address of queue header for ACL ‘ 
; «988 1970 1! ACL-CONTERT: address of ACL context longword : 
; 989 1971 1! LENGTH: size of the user buffer : 
; 990 13%8 | ACE_BUFFER: address of the user buffer : 
; 991 1973 1! ; 
; 338 1974 1! IMPLICIT INPUTS: : 
: 99 1975 1! NONE ; 
> 994 13r8 1! ‘ 
; 995 1977 1 ! OUTPUT PARAMETERS: : 
: 996 1978 1! NONE ; 
: 997 1979 1! : 
; 998 1980 1 ! IMPLICIT OUTPUTS: : 
; .999 1981 1! NONE ; 
: 1000 1 1% ; 
; 1001 1985 1 ! ROUTINE VALUE: : 
3 1008 1984 1! 1 if successful ‘ 
; 100 1985 1! 0 otherwise ; 
3 1004 1986 1} : 
; 1005 1987 1 ! SIDE EFFECTS: : 
; 1006 1988 1! The users's buffer is filled with as much of the ACL as will fit. : 
: 1007 1989 1! (Only entire ACE's are transferred.) The ACL context is then updated : 
: 1008 1990 1! to point to the next available ACE. ; 
3 1009 1991 1! : 
; 1010 1936 1 !<- : 
: 1011 1993 1 | 
; 1olg 1994 BEGIN : 
3 + 3 1995 : 
: 1014 ioe MAP | : 
3 1015 199 ACL_QUEUVE HEAD : REF $BBLOCK, ' Queue header for ACL : 
3 19i¢ 1998 ACL_CONTERT : REF S$BBLOCK; ! Context Longword : 
; 1018 000 2 LOCAL : 
3; 1019 001 COUNT, ! Remaining buffer size : 
3 ise 00 ACE F $BBLOCK, ! Address of the user ACE buffer 3 
3 19 1 sit Aer epuuTER : + com eres printer te cwrreet, Oh segment | ; 
3 : . : set to curren : 
: 10 § 005 ACE-POINTER : REF SBBLOCK, ! Pointer to current ACE ; 
3 H+ : B08 ACE_ ER; ! Index of ACE in ACL | : 
3; 1026 $08 : 

} 

| 

} 
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¥042000 ACL_READACL = read one or more ACEs 12-88-1982 $3:35:08 DISKSVMSMASTER=LF11X.SRCJACLSUBR.B32: 1" (3 
09 ! Initialize the buffer parameters. 


COUNT = .LENGTH; 
ACE = .ACE_BUFFER; 


! Sanity check the Length of the supplied ACE. 


IF .COUNT LSSU 4 
THEN RETURN SS$_BADPARAM; 


! If the ACL is empty, return an error. 
FF gg ACL UEUE SEAL ALLEL, FLIED EQLA ACL_QUEUE_HEADCACLSL_FLINK] 


pojejleoleleleleleleloelololeo) 


SESSSSSESSOS LSPA ODE LEE EE EE PECL LO PALL GSS 


BEGIN 
.ACL_CONTEXT = 0; 
ACL ERROR (SS$_ACLEMPTY) ; 


‘ 

! start reading ACE's from the atgrenres of the ACL. In either case only 

! fill the user's buffer with as many whole ACE's as will fit. Then save 

the context for the next time eg a error is given when an attempt 
& 


! is made to read beyond the end of t L. 


pew wm we epee lefoleloleleielelelelelolelelololo) 
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034 2 ACE_NUMBER = ACL_LOCATEACE (.ACL_QUEUE_HEAD, .ACL_CONTEXTCCONTEXT_INDEX] + 1, ACL_POINTER, ACL_SPLIT); 
03 ACE_POINTER = ACC_POINTERCACLSL_CIST)] * .ACL_SPLIT; 
037 WHILE 1 
038 2 00 
039 BEGIN 
940 IF ACE POINTER GEQA .ACL_POINTER + .ACL_POINTERCACLSW_SIZEJ 
04g BEGIN 
043 4 ACL_POINTER = .ACL_POINTERCACLSL_FLINK); 
a 4 ACE POINTER = ACL_POINTERCACLSL_CISTI; 
046 IF ACL_POINTERCACLSL_FLINK] EQLA ACL_QUEUE_HEADCACLS$L_FLINK] 
ot THEN ERITLOOP; 
049 IF .ACE_POINTERCACESB_SIZE] GTRU .COUNT 
050 THEN 
069 051 4 BEGIN 
070 03¢ 4 wACL_CONTEXT = .ACE_NUMBER - 1; 
071 053 4 if .ACE EQLA .ACE_BOFFER THEN ACL_cv oR (SS$_BUFFEROVF); 
Ore 054 4 CHSFILL (0, .COUNT, .ACE); 
O7% 08% 3 — 
075 089 CHSMOVE (.ACE_POINTERCACESB_SIZEJ, .ACE_POINTER, .ACE); 
07% 058 ACE = .ACE + .ACE_POINTERCACESB SiZE]; 
077 059 COUNT = .COUNT - -ACE_POINTERCACESB SIZE); 
079 061 ACE_POINTER = .ACE_POINTER + .ACE_POINTERCACESB_SIZE); 
sf 066 ACE_NUMBER = .ACE_RUMBER + 1; 
0 : te ! At this point the end of the ACL has been reached. Return the ACE's 


| 
| 
! Start reading ACE's from next available. If the ACL context is zero, 
| 
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ACL_READACL = read one or more ACEs JACLSUBR.832:1" F: 


; 1988 ! gathered so far, and set the context to point of the end in case another : 
; 1085 ! context operation takes place. If nothing was returned (i.e., we were : 
: 1338 5 ! at the end of the ACL to start with, return the status. ; 
: 1088 0 2 .ACL_CONTEXT = .ACE_NUMBER; 3 
; 1089 71 IF .ACE EQLA .ACE BOFFER : 
g 1a ie THEN ACL_ERROR (SS$_NOMOREACE); : 
; 1996 074 CHSFILL (0, .COUNT, .ACE); : 
; 109 075 RETURN 1; 3 
3 1094 O76 3 
; 1095 07 END; ! End of routine ACL_READACL ; 
O3FC 00000 «ENTRY ACL_READACL, Save R2,R3,R4,R5,R6,R7,R8,R9 ; 1953 ; 

of 08 cs ai SUB 2 : 3 

5 0c AC 00 0000 MOVL LENGTH, COUNT : 2011 : 

57 10 AC DO 00009 ACE BUFFER, ACE ; 2012 ; 

04 58 Di 0000D COURT, #4 : 2016 ; 

04 7 001 1$ $ : 

50 14 B? 308) #20, RO : 2017 ; 

06 AC 04 og »} Bele 1$: @ACL_QUEUE_HEAD, ACL_QUEUE_HEAD ; 2021 : 

08 BC D4 00010 @ACL_CONTEXT : 2024 : 

00 6E 4 ec 09025 #0, TSP), #0, COUNT, (ACE) : 2025 : 

02. Av 0900 = 8F go 00026 93318 - 2(ACE) 3 F 

50 0900 8F 3C BSS #2512, RO 3 3 

04 00031 3 ; 

5E DD 00032 2$: SP 3 2034 : 

08 AE OF ste ACL_POINTER 3 3 

08 BC 18 00 EF 00037 #0, #24, @ACL_CONTEXT, -(SP) 3 : 

6E 06 Booge (SP) : : 

04 AC DD O0003F ACL_QUEVE HEAD : : 

0000v CF 04 FB +994] #4,” ACL_LOCATEACE ; : 

59 50 DO 0004 7A 3 3 

56 04 AE 6E C1 QO04A ACL_SPLIT, ACL_POINTER, R6 ; 2035 é 

56 0c co 0004F #12, ACE_POINTER ; ; 

50 04 AE 4 0052 3$: VL ACL_POINTER, RO ; 2040 3 

51 08 48 f BR 6 MOVZWL 8(RO), RI 3 3 

51 : CO OO05A ADDL2 RO, R 3 ‘ 

51 6 D1 0005D CMPL  ACE_POINTER, R1 ; ; 

09 1F 00060 BLSSU_4$ 3 ; 

04 AE 0 00 he VL 30). ACL_POINTER : 2043 : 

56 4 AE € C1 000 ADDL3) #12, ACL_POINTER, ACE_POINTER 3 2044 : 

4 AC 04 rs 86 4$: cree ACL_POINTER, ACL_QUEUE_HEAD : 2046 5 

66 08 00 +4 007 CMPZV «#0, #8, (ACE_POINTER), COUNT ; 2049 : 

1D 18 7 BLEQU $ 3 : 

08 BC FF OA af 79 MOVAB <-1(R9), @ACL_CONTEXT : O3¢ : 

10 Ac 57D Ore CMPL ACE, ACE_BUFFER : 205 ; 

4B 12 et BNEQ 7 $ : 

00 6E 00 2C 000 MOVCS #0, (SP), #0, COUNT, (ACE) : : 


217 bytes, 


; Routine Size: 


ACL_READACL = read one or more ACEs 


02 
67 

08 

10 
00 

02 
00 


NO OFF NONMNOnN 


Routine Base: 


§ 15 
15-Sep-1 
14-Sep-1 


WD M909 —-90200 OO OVoow® 


OD ON HO-"AOFPWP OF OPEOO 


ose 


SCODES + 072F 


9B¢ §3:30:87 —iSksumsnaSteaccrtix.s 


(ACE_POINTER), RO 

RO, TACE POINTER), (ACE) 
(ACE_POIRTER), RO 

RO, ACE 

(ACE POINTER) RO 
aca 
ACE _NUMBE 


ACE_NUMBER, @ACL_CONTEXT 
ACE, ACE_BUFFER 


#0, (SP), #0, COUNT, (ACE) 
sigh: yieP 

#0, (SP), #0, COUNT, (ACE) 
#1, RO 


JACLSUBR.B32-9%" (3 


¥042000 ACL_ACLLENGTH = determine the size of the ACL teri $3: 30; 88 PT SUMGHAST eR tigg ACIACLSUBR. B32; Pyee - 


1 ZSBTTL ‘ACL_ACLLENGTH = determine the size of the ACL 
GLOBAL ROUTINE ACL_ACLLENGTH (ACL_QUEUE_HEAD, age © ONTEXT, COUNT, LENGTH) = 


S33 


‘ee 
i 
FUNCTIONAL DESCRIPTION: 


This routine returns the Length of the Access Control List for the 
specified file. 


} 
88 CALLING SEQUENCE: 
34 ACL _ACLLENGTH (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, LENGTH) 
091 INPUT Sgt ge 
ACL_QUEUVE_HEAD: address of queue header for ACL 
ACL-CONTERT: address of ACL context longword 
4 COURT; size of the user Access Control Entry 
3 ACE: address of the user Access Control Entry 
O99 IMPLICIT INPUTS: 
098 NONE 
099 
100 OUTPUT PARAMETERS: 
01 NONE 
§ IMPLICIT OUTPUTS: 
$ NONE 


saat VALUE : 


he Length of the ACL is returned. In addition, the ACL context 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
a 13 cleared. 
ie 


BEGIN 

MAP 
ACL_QUEUVE HEAD : REF SBBLOCK, ' Queue header for ACL 
ACL_CONTERT : REF $BBLOCK; ! Context longword 

LOCAL 
ACL_POINTER : REF SBBLOCK, ' Pointer to the current segment 
ACL-LENGTH; ! Length of the ACL 


! Calculate the length of the ACL. 
ACL_LENGTH = 0; 


ACL_POINTER = .ACL_QUEUE_HEADCACLSL FLIN NK); 
UNTIL ~ACL_POINTEREQLA ACL_QUEUE_HEADCACL$L_FLINK) 


REEDLSSS SE AEUN AS SOVSEAR UN SOBA WW HOSRLE AFA IS 


tat a ek et et ee 


GIN 
ACL_LENGTH = .ACL_LENGTH + Ach POLWTERCACL SU. SIZE] - ACLSC_LENGTH; 
ACL~ “POINTER = -ACE_ POINTERCACL C_FLINK] 


me a a a a a tk nd ad tds So 
ee ee ii ee ee ee ee 


ee em ea ee ee et a ed ed ed od od od td 
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SIDE EFFECTS: 
| 
| 
| 
| 


13-Sep-1984 


ost SHER p t $3 3] +08 VAX-11 Bliss-32 V4.0-742 
ACL_ACLLENGTH = determine the size of the ACL 14-Sep-1984 0: DISKSVMSMASTER:CF11X.SRC 
3: 11546 END; 
: 1155 136 
3 i $ i ! Return the Length of the ACL. 
3; 1158 139 CHSCOPY (4, ACL_LENGTH, 0, .COUNT, .LENGTH); 
3; 1159 140 RETURN 1; 
: 1160 141 
; 1161 142 END; ! End of routine ACL_ACLLENGTH 
003c 00000 -ENTRY ACL _ACLLENGTH, Save R2,R3,R4,R5 
7E D4 00002 CLRL ACL-LENG 
51 04 BC DO 00004 MOVL aAct QUEUE HEAD, ACL_POINTER 
04 AC 51 D1 00008 1$: CMPL ACL_POINTER, ACL_QUEDE_HEAD 
10 13 0000C BEQL 
50 08 Al 3¢C 0000: MOVZWL (ACL etn nO’ RO 
50 6 0 0001 ADDL2 AC LEN 
6E F4 A 4 0001 MOV ‘bs tho) 
51 61 DO 00019 MOVL Cael MOD ACL st eneL "POINTER 
A 11 0001C 8RB § 
oc AC 00 6E 10 : 2c 48h 2$: MOVCS #4, ACL_LENGTH, #0, COUNT, @LENGTH 
50 1 pO 000 MOVL #1, RO 
04 00029 RET 
; Routine Size: 42 bytes, Routine Base: $CODE$ + 0808 


5 


15 
v04=000 ACL_READACE = read a single ACE 13-Sep-1964 $3:30:09 | Uecsume 


ZSBTTL ‘ACL_READACE = read a single ACE 
GLOBAL ROUTINE ACL_READACE (ACL_QUEUE_HEAD, ACL_CONTEXT, COUNT, ACE) = 


144 


' 
FUNCTIONAL DESCRIPTION: 


32 V4 42 Page 37 
R:CF1 RCJACLSUBR.B32;1 (11) | 


o 

Ww 

—_ 

Pad 

ww 
z- 


This routine reads a single ACE at a time from the ACL. If the 
ACE will not fit, the error code SS$_BUFFEROVF is returned as an 


ACE error. 


CALLING SEQUENCE: 
ACL_READACE (ACL_QUEUVE_HEAD, ACL_CONTEXT, COUNT, ACE) 


INPUT PARAMETERS: 
ACL_QUEUVE HEAD: address of queue header for ACL 
ACL-CONTERT: address of ACL context longword 
COUNT: size of the user Access Control Entry 
ACE: address of the user Access Control Entry 


i IMPLICIT INPUTS: 
NONE 


. 
' 
. 
' 
. 
' 
* 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
i] 
. 
' 
' 
. 
' 
. 
‘ 
. 
' 
. 
] 
. 
' 
. 
' 
. 
' 
. 
' 
. 
] 
. 
' 
. 
' 
. 
' 
. 
' 
. 
1 
. 
' 
. 
' 
. 
' 
. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
1 if successful — 
error code otherwise 


SIDE EFFECTS: 
The user's buffer is filled with the next ACE if it will fit. 
Otherwise an error is indicated. 


SBSLEAEAN SE SSVEARATLSBSNSAP ANA SSSISAF 


| 

| 

| 

| 

| 

| 

| 

OUTPUT PARAMETERS: | 
NONE | 

| 


DIDI a at hk kt kt hh 0 


oo 


ROMO 
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BEGIN 


MAP 
ACL_QUEVE HEAD : REF $BBLOCK, - Queue header for ACL | 
ACL_CONTERT : REF $BBLOCK, Context longword 
: REF SBBLOCK; Address of user ACE buffer 


109 09 09 C9 SI NIN NS SN NS NS SIAR AA AAA AAA MMIII £* 


00 00 G0. 00 Co 
SSCS See eSB SPN ESSN Na vis OS Oar wo As on o> Doe orn tend oo Dee ean 


———— 


LOCAL 


ACL_POINTER : REF S$BBLOCK, ' Pointer to current ACL segment 
ACL SPLIT : REF S$BBLOCK, ! Offset to current ACE 
ACE_POINTER : REF SBBLOCK, ' Pointer to current ACE 
ACE_ ER; ! Index of ACE in ACL 


! Sanity check the Length of the supplied ACE. 


IF .COUNT LSSU 4 
THEN RETURN SS$_BADPAKAM; 


Be Se Be Se Se Se Oe Se Ge Be Be Oe Se Se Be Se Ge Se Se Ge Ge Ge Se Fe Ge Se Ge Ge Ge Ge Se Se Ge Se Se Se Se Se Se Se Ge Se See Se Se Geese ee Se Se Se Se Seastee 
a ee ee ee ee ee ei ie i ee ee ees 
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—CTOMIOOWZ Bl KCK TO ™MIOOWVZTS ACK TOM IOOZ Sr ACK TOM IOOZ Sr ACH TOM IOOW 
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ar 


: 1220 
3: 1221 ' Determine if the ACL is empty. If it is, set the context to zero, and 
; : ¢ ¢ i indicate a failure by clear ng the returning ACE, and return success. 
3 i 4 4 IF «ACL. QUEUE _HEADCACLSL_FLINK] EQLA ACL_QUEUE_HEADCACLSL_FLINK 
:4 BEGIN 
| § 8 -ACL_ CONTEXT 
3 1228 08 ACL L ERROR (SSS Rivenpry): 
18 fe ieee 
: 1231 14 ! Transfer the next available ACE to the user's buffer. If the user's 
3 1 ; \§ ' buffer is not large enough to contain the ACE, the context is unchanged, 
3 : i i and an error is indicated. 
: 1255 15 E_NUMBER = ent LOCATEACE (.ACL_QUEUE_HEAD, . AGE re Ws thee INDEX] + 1, ACL POINTER, ACL_SPLIT); 
3 7 1 tf TACL POINTER ACLS FLINK) EQLA ACL_QUEUE_HEADCACLSL 
3; 1 1 AND .ACC_SPL ATL_POI aye ACL$W_SIZEJ~= ACLSC LPENG THY 
, 3 Hs 18 THEN ACL— PRhOR Oots nN seh 
: } iB 5 ACE POINTER = ACL POINTER Act Si LIST] + .ACL_SPLIT; 
: 1$03 ; 1 ! The next available ACE has been located. Make sure there is room for it. 
; 1348 § § IF .ACE_POINTERCACESB_SIZEJ GTR .COUNT THEN ACL_ERROR (SS$_BUFFEROVF); 
: 1345 i ! There is room. Move it to the user's buffer. 
: 1247 $$ CHSCOPY (.ACE Piet Vir tte SIZE], .ACE_POINTER, 0, .COUNT, .ACE); 
3 } re 209 ACL _CONTEXT = .ACE_NUMBER 
: 1250 $5 0 2 RETURN 1; 
3; 1251 2231 
: 1252 22352 1 END; ! End of routine ACL_READACE 
OOFC 00000 «ENTRY ACL_READACE, Save R2,R3,R4,R5,R6,R7 3 2144 
5E 08 Ce ai SUBL2 #8, SP ; 
04 0c AC D 000 CMPL COUNT, #4 ; 2198 
04 if 0009 BGEQU ; 
50 14 pO 00008 MOVL #20, RO ; 2199 
04 Spe RET 3 
04 AC 04 ac } 14 1$ ones @ACL_QUEVE_HEAD, ACL_QUEUE_HEAD : 2204 
08 BC pd O16 CLRL_ @ACL_CONTEXT : 3 07 
oc AC 00 6E 1 ae C Vy MOVCS #0, TSP), 40, COUNT, @f E : 08 
50 10 AC D9 6 l MOVL ACE : 
02 A0 9D F MOVW oft in 2(R0) ; 
5 9D F C B MOVZWL #2512, RO é 
4 RET 3 
5E bp } 2$ PUSHL SP 3; 2215 
08 a5 F PUSHAB oat EO NtER : 
7E 08 BC 18 9 EF EXTZV #0, #24, @ACL_CONTEXT, =-(SP) F 
E D6 0003C INCL (SP) ; 


16 

ACLSUBR 1§.38 -1984 251: VAX=-11 Bliss-32 V4.0-742 Page 39 

y04 000 ACL_READACE = read a single ACE 1278 08-1 3b 93:30:09 DISKSVMSMASTER=CF1IX.SRCJACLSUBR.B32: 1° ab 
04 AC DD 0003 PUSHL ACL_QUEUE_HEAD : 
0000v CF Qe : if CALLS #4, ACL_LOCATEACE : 
7 0 Dd 46 MOVL RO, ACE-NUMBER : 

0 04 AF D 4 MOVL Ach POINTER, RO + 2216 
06 AC $ D 04D CMPL ROY, ACL_QUEUE_HEAD : 
4 } 51 BNEQ $ : 

50 08 AO 35 093 MOVZWL 8(RO), RO : 2217 
20 0¢ C2 0005 SUBL2 . : 
5 6E D1 O005A CMPL ACL_SPLIT, RO : 
18 12 0005 BNEQ ; 

oc AC 00 6E 00 2C 0005F MOVCS #0, (SP), #0, COUNT, @ACE : 2218 
10 BC 0065 : 
50 10 Ac 00 ? MOVL AcE RO : 
02 Ad O9E0 8F 80 0068 OVW We 28, 2(RO) : 
50 0960 BF 3¢ oo71 MOVZWL #2528, RO : 

56 04 AE 6€ C1 $077 3$: ADDL3 ACL_SPLIT, ACL_POINTER, R6 + 2219 
56 OC CO O007C ADDL2 #12, ACE_POINTER : 

OC aC As 08 00 FD Orr CMP ZV #0, #8, TACE_POINTER), COUNT : 2223 
OC ac 00 6E 00 2C 00087 MOVCS #0, (SP), #0, COUNT, @ACE : 
10 BC 9008p : 
50 10 AC DO 0008F MOVL ACE RO : 
02 Ad 0601 8F B80 00093 MOVW #1537, 2(RO) : 
50 0601 8F 3¢ 00099 MOVZWL #1537. RO : 
04 009E RET 3 

50 $6 A OO09F 4$: MOVZBL (ACE_POINTER), RO 3 2227 
Oc ac 00 6h = 20 2c 000a2 MOVC RO, TACE_POINTER), #0, COUNT, @ACE : 

08 BC eS DO OOOAA MOVL ACE_NUMBER, @ACL_CONTEXT : 2228 

0 01 DO OOOAE MOVL #1,7RO : 2230 

04 000B1 RET : 2232 


; Routine Size: 178 bytes, Routine Base: S$CODE$ + 0832 


'o4 

! 

FUNCTIONAL DESCRIPTION: 

This routine is used to position to a particular Access Control Entry. 
This is done by the context spect Tied. A context of zerz results in 
ee to the start of the ACL; a number Larger than the ACL 

s 


! end of the ACL chain. 


SSSssss 


ACE_NUMBER = 0; 
ACL SEGMENT = ACL_QUEUE 
UNTIL .ACL_SEGMENTCACLSC 


BEGIN 


HEADCACLSL_FLINK); 
_FLINK) EQCA ACL_QUEUE_HEADCACLSL_FLINK] 


3 1 1 

3 7 1 

| : 

3 3 5 1 

3 7 8 1 

3; % ae ek 

3 7 490 7! 

3} 41 1! 

: 1S “$1 i { in posit iont he end 

3 ‘ size resu nN positioning to the end. 

: 1265 44 1! , ° 

> 1266 45 1! CALLING SEQUENCE: 

; ' 44 rf ! ACL_LOCATEACE (ACL_QUEUE_HEAD, ACE_INDEX, ACL_POINTER, ACL_SPLIT) 
: 1269 ste 1 ! INPUT PARAMETERS: 

: 1270 49 1! ACL_QUEUE_HEAD: address of queue header for ACL 

; : f} $29 : ACE_INDEX: index number of ACE to locate 

3 7 uy 2054 1 ! IMPLICIT INPUTS: 

3 1274 551! NONE 

3 152? 54 1! 

3; 1276 55 1 ! OUTPUT PARAMETERS: 

; 1277 56 1! ACL_POINTER: address to store pointer to the selected ACL segment 
; \¢78 ef ! } ACL_SPLIT: address to store the offset to the selected ACE 

; 1¢80 259 1°! IMPLICIT OUTPUTS: 

: 1261 2260 1! NONE 

; see 2261 1! 

3; 128 $568 1 ! ROUTINE VALUE: ‘ 

3: 1284 265 1} 0 if the context is invalid (points off the end of the ACL) 

> 1285 2264 1! the numeric position of the ACE 

: 1286 $502 1! 

3 fs 4 266 1! SIDE EFFECTS: 

: 1288 $sor 1! NCNE 

3: 1289 268 1! 

: 1290 2269 1 !<- 

3; 1291 2270 1 

; 1698 $$) BEGIN 

3: 129 Le 

3 1296 7 MAP 

3 1295 74 ACL_QUEUE_ HEAD : REF S$BBLOCK, ! Queue header for ACL 

; 1696 ° ACL_POINTER : REF S$BBLOCK; ! Address of the current segment 
: 1298 37 LOCAL 

3; 1299 73 ACL_SEGMENT : REF SBBLOCK, ' Address of the current segment 
37 279 ACE_POINTER : REF $BBLOCK, ! Pointer to ACE within segment 
3 : H+ ACE_NUMBER; ! Position of ACE 

; ' Be ' Locate the ACE by context. IF an append is being done, locate to the 

3 1 

3 ' 5 

3 3 $ 

3: 1 8 

: 1 9 


—SooO 
OOM 
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ACLSUBR 1b.ce -1984 23:51: VAX-11 Bliss-32 V4. 
v04-000 ACL_LOCATEACE = locate ACE by context value 122808=1 384 $3:30;09 DISKSVMSMASTER:CF11 
4 3 ZSBTTL ‘ACL_LOCATEACE = Locate ACE by context value’ 
5 2 GLOBAL ROUTINE ACL_LOCATEACE (ACL_QUEUE_HEAD, ACE_INDEX, ACL_POINTER, ACL_SPLIT) = 


0-74 
X.SR 


2 
C 


Page 4 
JACLSUBR.B32;1 (12 


0 
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ACLSUBR 1$-S¢ 1984 23:51: VAX=11 Bliss-32_ V4.0-742 P 41 
¥04-000 ACL_LOCATEACE = locate ACE by context value 14-Sep-19 4 13:30:09 DISKSVMSMASTER:CF11X.SRCJACLSUBR.B32;1> (12) 
; 90 ACL.SEGMENT = .ACL SEGRE NTCACL St FLINK); 
91 ACE POINTER = ACL SEGMENTCACLSL CISTI; 
3 UNTTL ~ACE_POINTER GEQA .ACL_SEGMENT + .ACL_SEGMENTCACLS$W_SIZEJ 


N 
ACE_NUMBER = .ACE_NUMBER + 1; 
IF TACE_INDEX LEQO .ACE_NUMBER 
THEN EGIN 
-ACL_SPLIT = .ACE_POINTER = ACL_SEGMENTCACLSL_LISTI; 
-ACL POINTER = .ACL_SEGMENT; 
RETURN .ACE_NUMBER; 


END; 
ACE POINTER = .ACE_POINTER + .ACE_POINTERCACESB, SIZE; 


Oe Se Se Ge Se Ge Oe SH Se Oe Se Se Se Se Se Se Se Sse Se Se Se ee Se tese 
tt es St 2 SS 2s SS ss as ) SS 2s LY Yn 


WWNWWNI AIP RNIPININININININN 2 PP Oe ne ee 
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reper 
telel~l—~l~) 
FUN oO 

= PONOPONONPUNINUNIWE PUM BE 


$2 END; 
307 ! The ACE potaced to by the ACL context field does not exist. Set up to 
i ! append the ACE to the end of the ACL. 
3 310 -ACL SPLIT = .ACL_SEGMENTCACLS$W_SIZE] = ACLSC_LENGTH; 
; 311 -ACL_POINTER = .ACL_SEGMENT; 
; z1§ RETURN .ACE_NUMBER ? 1; 
3 314 END; ! End of routine ACL_LOCATEACE 


000¢ 00000 .ENTRY ACL_LOCATEACE, Save R2,R3 : 223 
51 D4 00002 CLRL ACE~NUMBER : 308 
50 04 AC 00 00004 MOVL ACL_QUEUE_HEAD, ACL_SEGMENT 3 86 
04 AC 60 01 90008 1$: CMPL (ACC_SEGMENT), ACL_GUEUE_HEAD 3 2287. 
32 (13 00 0c BEQL 6 4&$ F 
50 60 10 0000E MOVL (ACL_SEGMENT), ACL_ SEGMENT : 2290. 
26 0c AO 9€ 00011 MOVAB 12(R0), ACE_POINTER : 2291. 
& 08 AO 3C 00015 2s: MOVZWL 8(ACL_SEGMENT), R : 2292. 
53 50 CO 00019 ADDL2  ACL_SEGMENT, R$ F 
53 52 D1 0001C CMPL ACE~POINTER, ; | 
E? 1€ OOO1F BGEGU§ 1$ : 
51 06 90021 INCL ACE NUMBER > 2295. 
51 08 AC 01 00023 CMPL  ACE_INDEX, ACE_NUMBER + 2296 
OF 1A 90087 BGTRU 3$ ; 
53 52 9 C3 00029 SUBL ACL “pg ACE_POINTER, R3 3: 2299 
10 BC F4 A 4; ttt MOVAB -12TR3), @ACL_SPCIT ; 
oc =«oBC 50 pO 00032 MOVL ACL_SEGMENT, GACL_POINTER 3 $300 
17 (11 00036 BRB 5$ : j 01 | 
53 62 9A 00038 3$: MOVZBL (ACE_POINTER), R3 : 2303 
52 53 CO 0038 ADDL2 3, ACE_POINTER F 
D5 11 0003E BRB 28 ; 329 
10 BC 08 AO 35 0040 4$: MOVZWL (ACL_SEGMENT), @ACL_SPLIT 3; 251 
10 BC ¢ C2 00045 SUBL2. #12, @ACL j 
0c BC DO 0049 MOVL  ACL_SEGMERT, @ACL_POINTER > 2311 
1 D6 00040 INCL RI : 2312 
50 51 DO OO04F 5$: MOVL 1, RO ; 
04 00052 RET > 2314 


F 16 
ACLSUBR 5-Sep-1984 VAX-11 Bliss-32 V4.0-742 P 4 
rae tity ACL_LOCATEACE = Locate ACE by context value 2: -Sep- 071382 93: 3h; 88 DT EKSUMGHASTERS LE 10, SRE IACLSUBR.B3204 7° (155 | 


; Routine Size: 83 bytes, Routine Base: S$CODES + 08E4 


3; 1 $ = 
3 7 1§ 1 END 
3; 1338 1 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 2359 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
area. ae er reno ee Syahols eoneeess Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 52 0 1000 00:01.8 
; COMMAND QUALIFIERS 
4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ACLSUBR/OBJ=OBJ$:ACLSUBR MSRC$:ACLSUBR/UPDATE=(ENHS$:ACLSUBR) 
Size: 2359 coge + 0 data bytes 
un Time: 00 6 


; eet aes 01:36.9 
3; Lines/CPU M ais 

$ Lenenes/CPU-Rin: 1976 

3 ry Used: 278 pages 
: _— ation Complete 
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